Lines Matching refs:bs
19 # Mkbootstrap makes a backup copy of "$_[0].bs" if it exists and is non-zero
22 if (open(OUT, '>mkboot.bs')) {
29 skip("could not make dummy .bs file: $!", 2) unless $file_is_ready;
32 ok( -s 'mkboot.bso', 'Mkbootstrap should backup the .bs file' );
73 # if there are any arguments, open a file named baseext.bs
74 $file_is_ready = open(OUT, '>dasboot.bs');
77 skip("cannot make dasboot.bs: $!", 5) unless $file_is_ready;
81 chmod 0444, 'dasboot.bs';
84 skip("cannot write readonly files", 1) if -w 'dasboot.bs';
87 like( $@, qr/Unable to open dasboot\.bs/, 'should die given bad filename' );
91 chmod 0777, 'dasboot.bs';
97 like( $read, qr/Writing dasboot.bs/, 'should print status' );
101 $file_is_ready = open(IN, 'dasboot.bs');
102 ok( $file_is_ready, 'should have written a new .bs file' );
107 skip("cannot read .bs file: $!", 2) unless $file_is_ready;
120 $file_is_ready = open(OUT, '>dasboot.bs');
123 skip("cannot make dasboot.bs again: $!", 1) unless $file_is_ready;
135 $file_is_ready = open(IN, 'dasboot.bs');
139 skip("cannot open dasboot.bs for reading: $!", 3) unless $file_is_ready;
142 is( $out->read, "Writing dasboot.bs\n", 'should hush without Verbose set' );
154 1 while unlink(qw( mkboot.bso boot_BS dasboot.bs .bs ));