t/10-minimal.t
changeset 14 8da9e81acf82
parent 10 4243e22505f9
child 15 bb7b3ae76cc8
equal deleted inserted replaced
13:e502f4d6e7a2 14:8da9e81acf82
     7 use Test::Exception;
     7 use Test::Exception;
     8 use Storable qw(freeze);
     8 use Storable qw(freeze);
     9 
     9 
    10 my $tmp = File::Temp->new;
    10 my $tmp = File::Temp->new;
    11 $tmp->print(<<__);
    11 $tmp->print(<<__);
    12     a
    12 # kommentar
       
    13     a # more comment
    13     b
    14     b
    14     c
    15     c
    15 __
    16 __
    16 $tmp->flush;
    17 $tmp->flush;
    17 
    18