1 files changed, 10 insertions, 0 deletions
diff --git a/tests/vm/pt-write-code2.ck b/tests/vm/pt-write-code2.ck
new file mode 100644
index 0000000..69ffc77
--- /dev/null
+++ b/tests/vm/pt-write-code2.ck
@@ -0,0 +1,10 @@
+# -*- perl -*-
+use strict;
+use warnings;
+use tests::tests;
+check_expected ([<<'EOF']);
+(pt-write-code2) begin
+(pt-write-code2) open "sample.txt"
+pt-write-code2: exit(-1)
+EOF
+pass;

diff --git a/tests/vm/pt-write-code2.ck b/tests/vm/pt-write-code2.ck new file mode 100644 index 0000000..69ffc77 --- /dev/null +++ b/tests/vm/pt-write-code2.ck
@@ -0,0 +1,10 @@
	1	# -- perl --
	2	use strict;
	3	use warnings;
	4	use tests::tests;
	5	check_expected ([<<'EOF']);
	6	(pt-write-code2) begin
	7	(pt-write-code2) open "sample.txt"
	8	pt-write-code2: exit(-1)
	9	EOF
	10	pass;