Skip to content
Browse files

[tests] garbage collect the old tests/basic directory, now covered by…

… regress/basic
  • Loading branch information...
1 parent 87f5e59 commit 95ea0c464649f8d9b9c5474fc335dc3436670395 @avsm committed Aug 30, 2011
View
1 tests/basic/console/console.mir
@@ -1 +0,0 @@
-Main
View
13 tests/basic/console/main.ml
@@ -1,13 +0,0 @@
-open Lwt
-open OS
-
-let num = ref 0
-let cons = Console.t
-
-let rec main () =
- incr num;
- let s = (string_of_int !num) ^ "\n" in
- OS.Console.log_s s >>
- main ()
-
-let _ = OS.Main.run (main ())
View
1 tests/basic/exception/exception.mir
@@ -1 +0,0 @@
-Main
View
5 tests/basic/exception/main.ml
@@ -1,5 +0,0 @@
-let main () =
- Lwt.fail Not_found
-
-let _ =
- OS.Main.run (main ())
View
1 tests/basic/printf/printf.mir
@@ -1 +0,0 @@
-Test
View
9 tests/basic/printf/test.ml
@@ -1,9 +0,0 @@
-let _ =
- for y = 1 to 3 do
- for i = 0 to 10 do
- Printf.printf "%d %d\n%!" y i
- done;
- done;
- for i = 0 to 10 do
- Printf.printf "%f\n%!" (float_of_int i)
- done
View
1 tests/basic/sleep/sleep.mir
@@ -1 +0,0 @@
-Sleep
View
24 tests/basic/sleep/sleep.ml
@@ -1,24 +0,0 @@
-open Lwt
-
-let iter (nm,sz,m) =
- OS.Console.log ("start: " ^ nm);
- let tot = ref 0. in
- for_lwt i = 1 to sz do
- OS.Console.log (Printf.sprintf "iteration: %s %d" nm i);
- let t = float_of_int i /. m in
- tot := t +. !tot;
- OS.Time.sleep t;
- done >>
- (OS.Console.log ("done: " ^ nm); return !tot)
-
-let main () =
- let t1 = "one", 10, 2. in
- let t2 = "two", 6, 1.9 in
- let t3 = "three", 8, 1.8 in
- let t4 = "four", 8, 1.2 in
- let r t = iter t >> return () in
- join [r t1; r t2; r t3; r t4] >>
- return ()
-
-let _ =
- OS.Main.run (main ())
View
1 tests/basic/sleep_fast/sleep.mir
@@ -1 +0,0 @@
-Sleep
View
5 tests/basic/sleep_fast/sleep.ml
@@ -1,5 +0,0 @@
-open Lwt
-open Printf
-
-let _ =
- OS.Main.run (for_lwt i = 0 to 100000000000 do OS.Time.sleep 0.00001 done)

0 comments on commit 95ea0c4

Please sign in to comment.
Something went wrong with that request. Please try again.