view release on metacpan or  search on metacpan

t/DiffRpt/driver.pl  view on Meta::CPAN

                                    "$test_dir/expected/diff_msg.log" ) and 
        test_support::compare_dirs( $exp_dir, $act_dir, [ "diff_msg.log" ]) )
    {
        return 1;
    }else{   
        return 0;
    }
}    

sub test_std_creation_bef_aft_chk_1
{
    my $test_dir = "t/DiffRpt/t5";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";

    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    mkdir( "$act_dir/before" ) or 
        die "Cannot create directoty $act_dir/before: $!";
    mkdir( "$act_dir/after" ) or 
        die "Cannot create directoty $act_dir/after: $!";

    system( "lks.pl --keys=$test_dir/keys.txt " . 
                   "$test_dir/selects.txt " .
                   ">$act_dir/sel_subs.txt" );
    system( "lcsvdmp.pl --conn_file=$test_dir/conn_file_bef.txt " . 
                   "--path=$act_dir/before --chunk_size=2 " .
                   "$act_dir/sel_subs.txt " );
    system( "lcsvdmp.pl --conn_file=$test_dir/conn_file_aft.txt " . 
                   "--path=$act_dir/after --chunk_size=2 " .
                   "$act_dir/sel_subs.txt " );
    system( "lcsvdiff.pl --all --keys_file=$test_dir/rkeys.txt " .
            "--chunk_size=2 $act_dir/before $act_dir/after > " .
            "$act_dir/diffs.txt" );
    system( "lrptxml.pl --selects=$act_dir/sel_subs.txt " . 
            "--keys_file=$test_dir/rkeys.txt $act_dir/before " .
            " > $act_dir/report_bef.xml" );
    system( "lrptxml.pl --diffs --selects=$act_dir/sel_subs.txt " . 
            "--keys_file=$test_dir/rkeys.txt $act_dir/diffs.txt " .
            " > $act_dir/report_aft.xml" );
 
    return test_support::compare_dirs( $exp_dir, $act_dir );

}    


sub test_bef_aft_key
{
    my $test_dir = "t/DiffRpt/t6";
    my $inp_dir = "t/DiffRpt/t6/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--all', 
                    '--key=2,1', 
                    '--key=4n8',
                    "$inp_dir/before.txt",
                    "$inp_dir/after.txt" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );
    $LRpt::RKeysRdr::rkeys_data = "";
    $LRpt::Config::settings = "";

    return test_support::compare_dirs( $exp_dir, $act_dir );

}    

sub test_bef_aft_key_cols
{
    my $test_dir = "t/DiffRpt/t7";
    my $inp_dir = "t/DiffRpt/t7/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--all', 
                    '--key_cols=Text2,Text1', 
                    '--key_cols=Numeric4:8',
                    "$inp_dir/before.txt",
                    "$inp_dir/after.txt" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";
    $LRpt::Config::settings = "";
    return test_support::compare_dirs( $exp_dir, $act_dir );

}    

sub test_bef_aft_global_keys 
{
    my $test_dir = "t/DiffRpt/t8";
    my $inp_dir = "t/DiffRpt/t8/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    $ENV{ 'LRPT_GLOBAL_KEYS_FILE' } = "$test_dir/key_path/keys.txt";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--all',  '--global_keys', 
                    "$inp_dir/before",
                    "$inp_dir/after" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";
    $LRpt::Config::settings = "";
    delete $ENV{ 'LRPT_GLOBAL_KEYS_FILE' };
    return test_support::compare_dirs( $exp_dir, $act_dir );

}    

sub test_bef_aft_skip_cols 
{
    my $test_dir = "t/DiffRpt/t9";
    my $inp_dir = "t/DiffRpt/t9/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--key_cols=Text2,Text1', 
                    '--key_cols=Numeric4:8',
                    '--skip_cols=Text3,Numeric5',
                    "$inp_dir/before",
                    "$inp_dir/after" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";
    $LRpt::Config::settings = "";
    return test_support::compare_dirs( $exp_dir, $act_dir );

}    

sub test_bef_aft_skip_cols_file 
{
    my $test_dir = "t/DiffRpt/t10";
    my $inp_dir = "t/DiffRpt/t10/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--key_cols=Text2,Text1', 
                    '--key_cols=Numeric4:8',
                    "--skip_cols_file=$test_dir/skip_file.txt",
                    "$inp_dir/before",
                    "$inp_dir/after" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";
    $LRpt::Config::settings = "";
    $LRpt::CSVDiff::rkeys_rdr = "";
    %LRpt::CSVDiff::skip_cols = ();
    $LRpt::CSVDiff::print_all = "";

    return test_support::compare_dirs( $exp_dir, $act_dir );
}    

sub test_bef_aft_schema_diff 
{
    my $test_dir = "t/DiffRpt/t11";
    my $inp_dir = "t/DiffRpt/t11/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--key_cols=Text2,Text1', 
                    '--key_cols=Numeric4:8',
                    "$inp_dir/before",
                    "$inp_dir/after" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";
    $LRpt::Config::settings = "";
    return test_support::compare_dirs( $exp_dir, $act_dir );
}