This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get PerlIO::scalar to write to COWs
[perl5.git] / ext / PerlIO-scalar / t / scalar.t
index 1aee4b0..ed1ae69 100644 (file)
@@ -16,7 +16,7 @@ use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); # Not 0, 1, 2 everywhere.
 
 $| = 1;
 
-use Test::More tests => 70;
+use Test::More tests => 71;
 
 my $fh;
 my $var = "aaa\n";
@@ -284,3 +284,11 @@ EOF
     is read($strIn, my $buffer, 5), 0,
      'seek beyond end end of string followed by read';
 }
+
+# Writing to COW scalars
+{
+    my $bovid = __PACKAGE__;
+    open my $handel, ">", \$bovid;
+    print $handel "the COW with the crumpled horn";
+    is $bovid, "the COW with the crumpled horn", 'writing to COW scalars';
+}