Fix destroy() ending the program prematurely

niner · Feb 4, 2015 · c0f4066 · c0f4066
1 parent 4f67da5
commit c0f4066
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/Perl6.xs b/Perl6.xs
@@ -132,7 +132,7 @@ initialize()
 void
 destroy()
     CODE:
-        MVM_vm_exit(instance);
+        MVM_vm_destroy_instance(instance);
 
 SV *
 eval_code(code)

diff --git a/t/01load.t b/t/01load.t
@@ -1,7 +1,10 @@
+use Test::More;
 use Inline::Perl6;
 
+ok(1);
 Inline::Perl6::initialize;
-Inline::Perl6::call_method("1..2\n");
-Inline::Perl6::call_method('ok 1 - ');
-Inline::Perl6::call_method('ok 2 - ');
+ok(1);
 Inline::Perl6::destroy;
+ok(1);
+
+done_testing;