view release on metacpan or  search on metacpan

t/40numrows.t  view on Meta::CPAN

	{
		++$count;
	}
	$count;
}

#
#   Main loop; leave this untouched, put tests after creating
#   the new table.
#
while ( Testing() )
{

	#
	#   Connect to the database
	Test(
		  $state
			or ( $dbh = DBI->connect( $test_dsn, $test_user, $test_password ) )
	  )
	  or ServerError();

	#
	#   Find a possible new table name
	#
	Test( $state or ( $table = FindNewTable( $dbh ) ) )
	  or DbiError( $dbh->err, $dbh->errstr );

	#
	#   Create a new table; EDIT THIS!
	#
	Test(
		  $state
			or (
				 $def = TableDefinition(
										 $table,
										 [ "id",   "INTEGER", 4,  0 ],
										 [ "name", "CHAR",    64, 0 ]
				 ),
				 $dbh->do( $def )
			)
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	#
	#   This section should exercise the sth->rows
	#   method by preparing a statement, then finding the
	#   number of rows within it.
	#   Prior to execution, this should fail. After execution, the
	#   number of rows affected by the statement will be returned.
	#
	Test(
		  $state
			or $dbh->do(
					"INSERT INTO $table" . " VALUES( 1, 'Alligator Descartes' )"
			)
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test(
		  $state
			or ( $cursor =
				 $dbh->prepare( "SELECT * FROM $table" . " WHERE id = 1" ) )
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or $cursor->execute )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or ( $numrows = $cursor->rows ) == 1 or ( $numrows == -1 ) )
	  or ErrMsgF( "Expected 1 rows, got %s.\n", $numrows );

	Test( $state or ( $numrows = TrueRows( $cursor ) ) == 1 )
	  or ErrMsgF( "Expected to fetch 1 rows, got %s.\n", $numrows );

	Test( $state or $cursor->finish )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or undef $cursor or 1 );

	Test(
		  $state
			or
			$dbh->do( "INSERT INTO $table" . " VALUES( 2, 'Jochen Wiedmann' )" )
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test(
		  $state
			or ( $cursor =
				 $dbh->prepare( "SELECT * FROM $table" . " WHERE id >= 1" ) )
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or $cursor->execute )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or ( $numrows = $cursor->rows ) == 2 or ( $numrows == -1 ) )
	  or ErrMsgF( "Expected 2 rows, got %s.\n", $numrows );

	Test( $state or ( $numrows = TrueRows( $cursor ) ) == 2 )
	  or ErrMsgF( "Expected to fetch 2 rows, got %s.\n", $numrows );

	Test( $state or $cursor->finish )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or undef $cursor or 1 );

	Test(
		  $state
			or $dbh->do( "INSERT INTO $table" . " VALUES(3, 'Tim Bunce')" )
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test(
		  $state
			or ( $cursor =
				 $dbh->prepare( "SELECT * FROM $table" . " WHERE id >= 2" ) )
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or $cursor->execute )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or ( $numrows = $cursor->rows ) == 2 or ( $numrows == -1 ) )
	  or ErrMsgF( "Expected 2 rows, got %s.\n", $numrows );

	Test( $state or ( $numrows = TrueRows( $cursor ) ) == 2 )
	  or ErrMsgF( "Expected to fetch 2 rows, got %s.\n", $numrows );

	Test( $state or $cursor->finish )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or undef $cursor or 1 );

	#
	#   Finally drop the test table.
	#
	Test( $state or $dbh->do( "DROP TABLE $table" ) )
	  or DbiError( $dbh->err, $dbh->errstr );

}