NativeCall test tweak; now passes on Windows.

Raku · Oct 12, 2013 · 20c10a9 · 20c10a9
1 parent a37b601
commit 20c10a9
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/t/nativecall/01-basic.t b/t/nativecall/01-basic.t
@@ -65,9 +65,14 @@ $arg_hash<free_str> := 1;
 $return_hash := nqp::hash();
 $return_hash<type> := 'cpointer';
 
-nqp::buildnativecall($strdup, '', 'strdup', '', [$arg_hash], $return_hash);
-my $dupped := nqp::nativecall(CPointer, $strdup, ["ok - passing cpointer"]);
-ok(1, "function returning cpointer");
+try {
+    nqp::buildnativecall($strdup, '', 'strdup', '', [$arg_hash], $return_hash);
+    CATCH {
+        nqp::buildnativecall($strdup, '', '_strdup', '', [$arg_hash], $return_hash);
+    }
+}
+my $dupped := nqp::nativecall(CPointer, $strdup, ["ok - passing cpointer\n"]);
+say("ok - function returning cpointer"); # want un-numbered
 
 my $ptrprint := nqp::create(Call);
 $arg_hash := nqp::hash();