Lines Matching refs:var
16 my $var = "ok 2\n";
17 open($fh,"+<",\$var) or print "not ";
28 print $var;
29 $var = "foo\nbar\n";
44 $var = "Something";
45 open $fh, ">", \$var;
46 print "# Got [$var], expect []\n";
47 print "not " unless $var eq "";
55 $var = "Something";
61 print "# Got [$var], expect [Breathing]\n";
62 print "not " unless $var eq "Breathing";
67 $var = "Something ";
68 open $fh, ">>", \$var;
73 print "# Got [$var], expect [Something ]\n";
74 print "not " unless $var eq "Something ";
77 $var .= "else ";
78 print "# Got [$var], expect [Something else ]\n";
79 print "not " unless $var eq "Something else ";
86 print "# Got [$var], expect [Something else is here]\n";
87 print "not " unless $var eq "Something else is here";
93 $var = "line one\nline two\line three\n";
94 open $fh, "<", \$var;
96 $var = "foo";
99 print "# Got [$var], expect [foo]\n";
100 print "not " unless $var eq "foo";
105 $var = '';
107 open $fh, "+>", \$var;