view release on metacpan or  search on metacpan

t/Initialize.t  view on Meta::CPAN

    $page = fio_read_page($file);
    @lines = map {"$_\n"} split("\n", $text);
    is_deeply(\@lines, \@ok_lines, "rewrite configuration file"); # test 5

    $text = <<'EOQ';
R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7
EOQ

    my @lines = map {"$_\n"} split("\n", $text);
    $type = 'binary';
    $file = catfile($test_dir, 'transparent.gif');
    App::Followme::Initialize::write_file(\@lines, $type, $file);

    ok(-e $file, 'write binary file'); # test 6
};