Avoid potentially empty struct.

[p5sagit/p5-mst-13.2.git] / t / op / ref.t

diff --git a/t/op/ref.t b/t/op/ref.t
index 8ae9042..4b1d6e3 100755 (executable)
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -1,6 +1,13 @@
 #!./perl
 
-print "1..61\n";
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = qw(. ../lib);
+}
+
+print "1..62\n";
+
+require 'test.pl';
 
 # Test glob operations.
 
@@ -295,9 +302,22 @@ sub x::DESTROY {print "ok ", 54 + shift->[0], "\n"}
 }
 
 
+my $result = runperl (switches=>['-l'],
+                      prog=> 'print 1; print qq-*$\*-;print 1;');
+my $expect = "1\n*\n*\n1\n";
+if ($result eq $expect) {
+  print "ok 59\n";
+} else {
+  print "not ok 59\n";
+  foreach ($expect, $result) {
+    s/\n/\\n/gs;
+  }
+  print "# expected \"$expect\", got \"$result\"\n";
+}
+
 # test global destruction
 
-my $test = 59;
+my $test = 60;
 my $test1 = $test + 1;
 my $test2 = $test + 2;