view release on metacpan or  search on metacpan

t/sqlminus.t  view on Meta::CPAN

#		'truncate'	=> ['_unimp'],
#		underline	=> '-',
#		verify		=> ['_unimp'],
#		wrap		=> ['_unimp'],
#	},
#	show => {
#		all           => ['_all'],
#		btitle        => ['_unimp'],
#		columns       => ['_unimp'],
#		errors        => ['_unimp'],
#		grants        => ['_unimp'],
#		help          => ['_help'],
#		hints         => ['_hints'],
#		lno           => ['_hints'],
#		me            => ['_me'],
#		objects       => ['_unimp'],
#		packages      => ['_unimp'],
#		parameters    => ['_unimp'],
#		password      => ['_print_buffer', qq{I don\'t think so!} ], #		# '
#		pno           => ['_unimp'],
#		release       => ['_unimp'],
#		repfooter     => ['_unimp'],
#		repheader     => ['_unimp'],
#		sga           => ['_unimp'],
#		show          => ['_show_all_commands'],
#		spool         => ['_unimp'],
#		sqlcode       => ['_unimp'],
#		roles         => ['_unimp'],
#		ttitle        => ['_unimp'],
#		tables        => ['_unimp'],
#		users         => ['_unimp'],
#		views         => ['_unimp'],
#	},
#	sql => {
#		pno	=> undef,
#		lno	=> undef,
#		release	=> undef,
#		user	=> undef,
#	},
#};


use Test::More tests => 109;

BEGIN { use_ok( 'DBI::Shell' ); }

	require_ok( 'Text::Reform' );

$ENV{DBISH_CONFIG} = qq{dbish_config};

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}) );
ok( ! $sh->do_column(qw{ino format a20}) );
ok( ! $sh->do_column(qw{blocks format a20}) );
ok( ! $sh->do_column(qw{ctime format a20}) );
ok( ! $sh->do_column() );
ok( ! $sh->do_load( $LOAD_SQL ));
ok( ! $sh->do_go );

ok( ! $sh->do_column(qw{ctime noprint}) );

ok( ! $sh->do_column() );

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

ok( ! $sh->do_column(qw{ctime print}) );
ok( ! $sh->do_load( $LOAD_SQL ));
ok( ! $sh->do_go );

ok(  $sh->do_column(q{clear}) );
ok( ! $sh->do_column() );

ok( ! $sh->do_column(qw{ctime format a10}) );

$sh->{current_buffer} = q{select ctime from t};
ok( ! $sh->do_go );

ok( ! $sh->do_column(qw{ctime noprint}) );
$sh->{current_buffer} = q{select ctime from t};
ok( ! $sh->do_go );

ok( ! $sh->do_column(qw{ctime print}) );
$sh->{current_buffer} = q{select ctime from t};
ok( ! $sh->do_go );

ok( ! $sh->do_column(qw{ctime off}) );
$sh->{current_buffer} = q{select ctime from t};
ok( ! $sh->do_go );

ok(  $sh->do_column(qw{clear}) );

ok( ! $sh->do_column(qw{ctime format a10}) );
$sh->{current_buffer} = q{select ctime from t};
ok( ! $sh->do_go );

ok(  $sh->do_set(qw{heading undef}) );
is(  $sh->do_set(qw{underline off}), undef, "turn underline off" );
$sh->{current_buffer} = q{select ctime from t};
ok( ! $sh->do_go );

ok(  $sh->do_set(qw{underline -}) );