view release on metacpan or  search on metacpan

t/csv.t  view on Meta::CPAN

ok (exists $ENV{DBISH_CONFIG}, "Testing CSV plugin for dbish. Configuration file dbish_config." );

$sh = DBI::Shell->new(qw(dbi:ExampleP:));
ok(defined $sh, "Create statement handler" );

ok( ! $sh->do_connect( qw(dbi:ExampleP:)), "Connecting to source" );


ok( $sh->do_format( q{csv} ), "Change format to csv" );

# nlink,ino,blocks,ctime,rdev,mtime,mode,blksize,gid,size,dev,name,atime,uid

ok( ! $sh->do_load( $LOAD_SQL ));
ok( ! $sh->do_go );

ok(   $sh->do_option( "sep=^" ));
ok( ! $sh->do_go );

ok(   $sh->do_option( "sep=|" ));
ok( ! $sh->do_go );

t/sqlminus.t  view on Meta::CPAN

ok (exists $ENV{DBISH_CONFIG}, "Testing SQLMinus plugin for dbish. Configuration file dbish_config." );

$sh = DBI::Shell->new(qw(dbi:ExampleP:));
ok(defined $sh, "Create statement handler" );

ok( ! $sh->do_connect( qw(dbi:ExampleP:)), "Connecting to source" );


ok( $sh->do_format( q{sqlm} ), "Change format to sqlminus" );

# nlink,ino,blocks,ctime,rdev,mtime,mode,blksize,gid,size,dev,name,atime,uid

# List of all format defined columns.
ok( ! $sh->do_column(), "List columns defined with formats" );

ok( $sh->do_column(q{fred}),  "Show column  format for fred" );
ok( $sh->do_column(q{nlink}), "Show column  format for nlink" );

ok( $sh->do_column(q{clear}), "Clear all column formats" );

ok( ! $sh->do_column(qw{nlink format a20}) );