Add simple use-ok implementation

rakudo · Feb 20, 2015 · bf2d1dd · bf2d1dd
1 parent face62b
commit bf2d1dd
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lib/Test.pm b/lib/Test.pm
@@ -257,6 +257,16 @@ multi sub unlike(Str $got, Regex $expected, $desc = '') is export {
     return $ok;
 }
 
+multi sub use-ok(Str $code, $msg = ("The module can be use-d ok")) is export {
+    $time_after = nqp::p6box_n(nqp::time_n);
+    try {
+	EVAL ( "use $code" );
+    }
+    my $ok = proclaim((not defined $!), $msg) or diag($!);
+    $time_before = nqp::p6box_n(nqp::time_n);
+    return $ok;
+}
+
 multi sub dies_ok(Callable $code, $reason = '') is export {
     $time_after = nqp::p6box_n(nqp::time_n);
     my $death = 1;