Takayuki Muranushi avatar Takayuki Muranushi committed 096783d

rename ~> to *| in tests, too.

Comments (0)

Files changed (1)

 t13 = tesla == volt * second / square meter
 t14 = henry == volt * second / ampere
 
-t15 = 3.6 ~> kilo meter / hour == 1 ~> meter / second
-t16 = 3.6 ~> mega joule == 1 ~> kilo watt * hour
-t17 = 1 ~> cubic (deci meter) == 1 ~> liter
-t18 = 1 ~> square meter == 10000 ~> square (centi meter)
+t15 = 3.6 *| kilo meter / hour == 1 *| meter / second
+t16 = 3.6 *| mega joule == 1 *| kilo watt * hour
+t17 = 1 *| cubic (deci meter) == 1 *| liter
+t18 = 1 *| square meter == 10000 *| square (centi meter)
 
-t19 = (1 ~> meter / second) * (1 ~> second) == 1 ~> meter
+t19 = (1 *| meter / second) * (1 *| second) == 1 *| meter
 
 -- These should just typecheck
 t20 = mile + inch + yard + foot + ångström + nautical_mile + meter == mile + inch + yard + foot + ångström + nautical_mile + meter
 
 t24 = percent + permil + ppm + ppb + ppt == percent + permil + ppm + ppb + ppt
 
-t25 = hbar == (h / (2 ~> pi))
+t25 = hbar == (h / (2 *| pi))
 
 t26 = True -- pown3 meter * pow3 meter == pown1 meter * pow1 meter
 t27 = True -- pown3 meter * pow3 meter == pown2 meter * pow2 meter
 runTest :: Bool -> (Bool, Integer) -> IO Bool
 runTest b (True, _) = return b
 runTest b (False, i) = do { putStrLn ("Test " ++ show i ++ " failed.")
-		   				  ; return False
-						  }
+                                                  ; return False
+                                                  }
 
 main = do { b <- foldM runTest True (zip [t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28] [1..])
-		  ; unless b exitFailure
-		  }
+                  ; unless b exitFailure
+                  }
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.