Current Path : /proc/2/root/usr/local/rvglobalsoft/rvsitebuilder7/lib/tests/

Upload File :

Current File : //proc/2/root/usr/local/rvglobalsoft/rvsitebuilder7/lib/tests/File.ndb.pm

#!/usr/bin/perl

BEGIN {
    use File::Basename;
    use Cwd qw(abs_path);
    push(@INC, dirname(abs_path($0)));
    push(@INC, dirname(abs_path($0)) . '/../');
    push(@INC, dirname(abs_path($0)) . '/../lib');
    push(@INC, dirname(abs_path($0)) . '/../perl5');
    push(@INC, dirname(abs_path($0)) . '/../../tests/xunit');
}

use LikeXUnit;
use RVL::File;

sub set_up {

}

sub tear_down {

}

testcase ('Case RVL::File::mime_type()', sub {
    my $res = RVL::File::mime_type();
    ok(!defined($res) , '$res have value one');
});

testcase ('Case RVL::File::extensions()', sub {
    my $res = RVL::File::extensions();
    ok(!defined($res) , '$res have value one');
});

testcase ('Case RVL::File::extension_loaded()', sub {
    my $res = RVL::File::extension_loaded();
    ok($res == 0 , '$res have value one');
});

testcase ('Case RVL::File::filesize()', sub {
    my $res = RVL::File::filesize();
    ok(!defined($res) , '$res have value one');
});

testcase ('Case RVL::File::file_get_contents()', sub {
    my $res = RVL::File::file_get_contents();
    ok($res eq '' , '$res have value one');
});

testcase ('Case RVL::File::parse_ini_file()', sub {
    my $res = RVL::File::parse_ini_file();
    ok(ref($res)=~/hash/i , '$res have value one');
});

done_testing( $number_of_tests_run );

Copyright 2K16 - 2K18 Indonesian Hacker Rulez