view release on metacpan or  search on metacpan

t/10_files.t  view on Meta::CPAN

        ok( $dumper->write(["one,un","<b>deux</b>","+@[123]"]), 
                "write complex" );

        ok( $dumper->close, "close");
    }
}

SKIP: {
    skip "t/test.csv", 1 unless -f "t/test.csv";
    my @csv = eval {
        local @ARGV = "t/test.csv";
        <>;
    };
    is_deeply( \@csv, 
        [ qq(one,two,three\n), 
          qq(1,2,3\n),
          qq(4,5,6\n),
          qq(7,8,9\n),
          qq("one,un",<b>deux</b>,+@[123]\n)], 
        "t/test.csv good" );
}

SKIP: {
    skip "t/test.xml", 1 unless -f "t/test.xml";
    my @xml = eval {
        local @ARGV = "t/test.xml";
        <>;
    };
    is_deeply( \@xml, [
qq(<?xml version="1.0" encoding="iso-8859-1"?>\n),
qq(<table>\n),
qq(  <record>\n),
qq(    <one>1</one>\n),
qq(    <two>2</two>\n),
qq(    <three>3</three>\n),
qq(  </record>\n),

t/30_dump.t  view on Meta::CPAN

            skip "$t support not available", 2 unless $params{$t};

            ok( (-f $params{$t}[0]), "Created $name ($t)" );

            if( $t eq 'Excel' ) {
                unlink( $params{ $t }[0] );
                skip "Can't verify $t files", 1;
            }

            my @content =  eval {
                local @ARGV = ( $params{$t}[0] );
                <>;
            };
            die $@ if $@;
            is_deeply( \@content, $test->{$t}, "OK" )
                or die "$params{$t}[0]";
            unlink( $params{$t}[0] );
        }
    }
}

t/31_master_key.t  view on Meta::CPAN

            skip "$t support not installed", 2
                unless $params{$t};
            ok( (-f $params{$t}[0]), "Created $name ($t)" );

            if( $t eq 'Excel' ) {
                unlink( $params{ $t }[0] );
                skip "Can't verify $t files", 1;
            }

            my @content =  eval {
                local @ARGV = ( $params{$t}[0] );
                <>;
            };
            die $@ if $@;
            is_deeply( \@content, $test->{$t}, "OK" )
                or die "$params{$t}[0]";
            unlink( $params{$t}[0] );
        }
    }
}