Commit | Line | Data |
635c7876 |
1 | #!/usr/local/bin/perl -w |
2 | |
3 | use strict ; |
99709852 |
4 | use File::Slurp ; |
635c7876 |
5 | |
99709852 |
6 | use Test::More tests => 2 ; |
635c7876 |
7 | |
635c7876 |
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 ; |