diff --git a/simple-tests/infix.t b/simple-tests/infix.t
new file mode 100644
index 00000000..75dc94ab
--- /dev/null
+++ b/simple-tests/infix.t
@@ -0,0 +1,5 @@
+say "1..1";
+sub infix:<=>($, $say) { say $say }
+my $foo;
+$foo = "ok 1";
+
diff --git a/simple-tests/parcel-arg.t b/simple-tests/parcel-arg.t
new file mode 100644
index 00000000..4b3b87ee
--- /dev/null
+++ b/simple-tests/parcel-arg.t
@@ -0,0 +1,8 @@
+say "1..2";
+sub foo(\$arg) {
+    say $arg;
+    $arg = "ok 2";
+}
+my $ok = "ok 1";
+foo($ok);
+say $ok;