[commit: base] master: Whitespace only in tests (39fa610)
Ian Lynagh
igloo at earth.li
Sat Nov 19 23:54:32 CET 2011
Repository : ssh://darcs.haskell.org//srv/darcs/packages/base
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/39fa61044c945034190a16e5e5317daeca57eead
>---------------------------------------------------------------
commit 39fa61044c945034190a16e5e5317daeca57eead
Author: Ian Lynagh <igloo at earth.li>
Date: Sat Nov 19 22:42:42 2011 +0000
Whitespace only in tests
>---------------------------------------------------------------
tests/Numeric/num005.hs | 4 +-
tests/Numeric/num008.hs | 64 +++++++++++++++++++++++-----------------------
tests/unicode001.hs | 34 ++++++++++++------------
3 files changed, 51 insertions(+), 51 deletions(-)
diff --git a/tests/CPUTime001.hs b/tests/CPUTime001.hs
index 6c43c57..122e9ca 100644
diff --git a/tests/Numeric/num002.hs b/tests/Numeric/num002.hs
index 31ea76c..8879607 100644
diff --git a/tests/Numeric/num003.hs b/tests/Numeric/num003.hs
index 368be25..01ca492 100644
diff --git a/tests/Numeric/num004.hs b/tests/Numeric/num004.hs
index 0eb2bee..8159988 100644
diff --git a/tests/Numeric/num005.hs b/tests/Numeric/num005.hs
index ef647a6..49ed092 100644
--- a/tests/Numeric/num005.hs
+++ b/tests/Numeric/num005.hs
@@ -10,8 +10,8 @@ main =
present str f ls =
sequence (map (\ v -> putStr ('\n':str ++
' ': v ++
- " = " ++
- (show (f v)))) ls)
+ " = " ++
+ (show (f v)))) ls)
in
do
present "(readDec::ReadS Integer)" (readDec::ReadS Integer) ls
diff --git a/tests/Numeric/num006.hs b/tests/Numeric/num006.hs
index f421ed7..65347dd 100644
diff --git a/tests/Numeric/num007.hs b/tests/Numeric/num007.hs
index 1c40ecf..e02bd41 100644
diff --git a/tests/Numeric/num008.hs b/tests/Numeric/num008.hs
index 3615824..fa08132 100644
--- a/tests/Numeric/num008.hs
+++ b/tests/Numeric/num008.hs
@@ -6,24 +6,24 @@ import Numeric
main = do
let dbls = map (shEFloat (Just 7)) doubles
- ++ map (shEFloat (Just 0)) doubles
- ++ map (shEFloat Nothing) doubles
- ++ map (shFFloat (Just 7)) doubles
- ++ map (shFFloat (Just 0)) doubles
- ++ map (shFFloat Nothing) doubles
- ++ map (shGFloat (Just 7)) doubles
- ++ map (shGFloat (Just 0)) doubles
- ++ map (shGFloat Nothing) doubles
+ ++ map (shEFloat (Just 0)) doubles
+ ++ map (shEFloat Nothing) doubles
+ ++ map (shFFloat (Just 7)) doubles
+ ++ map (shFFloat (Just 0)) doubles
+ ++ map (shFFloat Nothing) doubles
+ ++ map (shGFloat (Just 7)) doubles
+ ++ map (shGFloat (Just 0)) doubles
+ ++ map (shGFloat Nothing) doubles
flts = map (shEFloat (Just 7)) floats
- ++ map (shEFloat (Just 0)) floats
- ++ map (shEFloat Nothing) floats
- ++ map (shFFloat (Just 7)) floats
- ++ map (shFFloat (Just 0)) floats
- ++ map (shFFloat Nothing) floats
- ++ map (shGFloat (Just 7)) floats
- ++ map (shGFloat (Just 0)) floats
- ++ map (shGFloat Nothing) floats
+ ++ map (shEFloat (Just 0)) floats
+ ++ map (shEFloat Nothing) floats
+ ++ map (shFFloat (Just 7)) floats
+ ++ map (shFFloat (Just 0)) floats
+ ++ map (shFFloat Nothing) floats
+ ++ map (shGFloat (Just 7)) floats
+ ++ map (shGFloat (Just 0)) floats
+ ++ map (shGFloat Nothing) floats
putStrLn (unlines dbls)
putStrLn (unlines flts)
@@ -36,22 +36,22 @@ shGFloat p f = showGFloat p f ""
doubles :: [ Double ]
doubles = [ 0.0
- , 420
- , 42
- , 4.2
- , 0.42
- , 0.042
- , 1.82173691287639817263897126389712638972163
- , 1.82173691287639817263897126389712638972163e-300
- ]
+ , 420
+ , 42
+ , 4.2
+ , 0.42
+ , 0.042
+ , 1.82173691287639817263897126389712638972163
+ , 1.82173691287639817263897126389712638972163e-300
+ ]
floats :: [ Float ]
floats = [ 0.0
- , 420
- , 42
- , 4.2
- , 0.42
- , 0.042
- , 1.82173691287639817263897126389712638972163
- , 1.82173691287639817263897126389712638972163e-300
- ]
+ , 420
+ , 42
+ , 4.2
+ , 0.42
+ , 0.042
+ , 1.82173691287639817263897126389712638972163
+ , 1.82173691287639817263897126389712638972163e-300
+ ]
diff --git a/tests/unicode001.hs b/tests/unicode001.hs
index 90da1d8..ceac9a5 100644
--- a/tests/unicode001.hs
+++ b/tests/unicode001.hs
@@ -11,36 +11,36 @@ main = do
where
do_char char = s ++ (take (12-length s) (repeat ' ')) ++ concat (map f bs)
where
- s = show char
- bs = map ($char) functions
- f True = "X "
- f False = " "
+ s = show char
+ bs = map ($char) functions
+ f True = "X "
+ f False = " "
strs = ["upper","lower","alpha","alnum","digit","print","space","cntrl"]
functions = [isUpper,isLower,isAlpha,isAlphaNum,isDigit,isPrint,isSpace,isControl]
chars = [backspace,tab,space,zero,lower_a,upper_a,delete,
- right_pointing_double_angle_quotation_mark,
- greek_capital_letter_alpha,
- bengali_digit_zero,
- en_space,
- gothic_letter_ahsa,
- monospaced_digit_zero
- ]
+ right_pointing_double_angle_quotation_mark,
+ greek_capital_letter_alpha,
+ bengali_digit_zero,
+ en_space,
+ gothic_letter_ahsa,
+ monospaced_digit_zero
+ ]
backspace = '\x08'
-tab = '\t'
-space = ' '
-zero = '0'
-lower_a = 'a'
-upper_a = 'A'
+tab = '\t'
+space = ' '
+zero = '0'
+lower_a = 'a'
+upper_a = 'A'
delete = '\x7f'
right_pointing_double_angle_quotation_mark = '\xBB'
latin_small_letter_i_with_caron = '\x1D0'
combining_acute_accent = '\x301'
greek_capital_letter_alpha = '\x0391'
bengali_digit_zero = '\x09E6'
-en_space = '\x2002'
+en_space = '\x2002'
gothic_letter_ahsa = '\x10330'
monospaced_digit_zero = '\x1D7F6'
diff --git a/tests/unicode002.hs b/tests/unicode002.hs
index 50ed5dd..f7b9187 100644
More information about the Cvs-libraries
mailing list