t/no_clobber.t

   1 #!/usr/local/bin/perl -w
   2
   3 use strict ;
   4 use File::Slurp ;
   5
   6 use Test::More tests => 2 ;
   7
   8
   9 my $data = <<TEXT ;
  10 line 1
  11 more text
  12 TEXT
  13
  14 my $file = 'xxx' ;
  15
  16 unlink $file ;
  17
  18
  19 my $err = write_file( $file, { no_clobber => 1 }, $data ) ;
  20 ok( $err, 'new write_file' ) ;
  21
  22 $err = write_file( $file, { no_clobber => 1, err_mode => 'quiet' }, $data ) ;
  23
  24 ok( !$err, 'no_clobber write_file' ) ;
  25
  26 unlink $file ;