Rose-DB-0.783/t/subclass-mariadb.t

31 my $db = My::DB2->new();
33 ok(ref $db && $db->isa('Rose::DB'), 'new()');
36 eval { $dbh = $db->dbh };
44   ok($db->has_dbh, 'has_dbh() 1');
52     is($db2->$field(), $db->$field(), "$field()");
55   $db->disconnect;
59 $db = My::DB2->new();
61 ok(ref $db && $db->isa('Rose::DB'), "new()");
63 $db->init_db_info;
65 ok($db->supports_limit_with_offset, 'supports_limit_with_offset');
73 ok(!$db->validate_timestamp_keyword($rand), "validate_timestamp_keyword ($rand)");
75 ok(!$db->validate_datetime_keyword($rand), "validate_datetime_keyword ($rand)");
77 ok(!$db->validate_date_keyword($rand), "validate_date_keyword ($rand)");
79 ok($db->validate_date_keyword('0000-00-00'), "validate_date_keyword (0000-00-00)");
81 ok($db->validate_datetime_keyword('0000-00-00 00:00:00'), "validate_datetime_keyword (0000-00-00 00…
82 ok($db->validate_datetime_keyword('0000-00-00 00:00:00'), "validate_datetime_keyword (0000-00-00 00…
84 ok($db->validate_timestamp_keyword('0000-00-00 00:00:00'), "validate_timestamp_keyword (0000-00-00 …
85 ok($db->validate_timestamp_keyword('00000000000000'), "validate_timestamp_keyword (00000000000000)"…
87 ok(!$db->validate_time_keyword($rand), "validate_time_keyword ($rand)");
93   ok(!$db->$method('Foo(Bar)'), "$method (Foo(Bar)) 1");
94   $db->keyword_function_calls(1);
95   ok($db->$method('Foo(Bar)'), "$method (Foo(Bar)) 2");
96   $db->keyword_function_calls(0);
105     ok($db->$method($new_value), "$method ($new_value)");
109 is($db->format_array([ 'a', 'b' ]), q({"a","b"}), 'format_array() 1');
110 is($db->format_array('a', 'b'), q({"a","b"}), 'format_array() 2');
112 eval { $db->format_array('x' x 300) };
115 my $a = $db->parse_array(q({"a","b","\\""}));
119 is($db->format_set([ 'a', 'b' ]), 'a,b', 'format_set() 1');
120 is($db->format_set('a', 'b'), 'a,b', 'format_set() 2');
122 eval { $db->format_set('a', undef) };
125 eval { $db->format_set([ 'a', undef ]) };
128 my $s = $db->parse_set('a,b');
139   eval { $db->connect };
141   $dbh = $db->dbh;
143   is($db->domain, 'test', "domain()");
144   is($db->type, 'mariadb', "type()");
146   is($db->print_error, $dbh->{'PrintError'}, 'print_error() 2');
147   is($db->print_error, $db->connect_option('PrintError'), 'print_error() 3');
149   is($db->null_date, '0000-00-00', "null_date()");
150   is($db->null_datetime, '0000-00-00 00:00:00', "null_datetime()");
152 …is($db->format_date(parse_date('12/31/2002', 'floating')), '2002-12-31', "format_date() floating");
153 …is($db->format_datetime(parse_date('12/31/2002 12:34:56', 'floating')), '2002-12-31 12:34:56', "fo…
155 …is($db->format_timestamp(parse_date('12/31/2002 12:34:56', 'floating')), '2002-12-31 12:34:56', "f…
157   if($db->database_version >= 5_000_003)
159     is($db->format_bitfield($db->parse_bitfield('1010')),
162     is($db->format_bitfield($db->parse_bitfield(q(B'1010'))),
165     is($db->format_bitfield($db->parse_bitfield(2), 4),
168     is($db->format_bitfield($db->parse_bitfield('0xA'), 4),
173     is($db->format_bitfield($db->parse_bitfield('1010')),
176     is($db->format_bitfield($db->parse_bitfield(q(B'1010'))),
179     is($db->format_bitfield($db->parse_bitfield(2), 4),
182     is($db->format_bitfield($db->parse_bitfield('0xA'), 4),
188   $db->autocommit(1);
190   is($db->autocommit + 0, 1, 'autocommit() 2');
193   $db->autocommit(0);
195   is($db->autocommit + 0, 0, 'autocommit() 4');
198   my $dbh_copy = $db->retain_dbh;
200   $db->disconnect;
205     $db = My::DB2->new($attr => 1);
206     is($db->$attr(), 1, "$attr 1");
207     $db->connect;
213         is($db->$attr(), 1, "$attr 2");
214         is($db->dbh->{$attr}, 1, "$attr 3");
223     $db = My::DB2->new(dbh => $dbh);
226   $db->retain_dbh;
227   $db->release_dbh;
229   ok($db->{'dbh'}{'Active'}, 'retain stuffed dbh');
231   $db->connect;
233   if($db->isa('My::DB2'))
236     $db = My::DB2->new('mariadb');
237     $db->dbh;
246 $db->dsn('dbi:MariaDB:dbname=dbfoo;host=hfoo;port=pfoo');
252 eval { $db->dsn('dbi:Pg:dbname=dbfoo;host=hfoo;port=pfoo') };
263 $db = My::DB2->new
270 is($db->database, 'mydb', 'parse_dsn() 1');
301   $db = My::DB2->new('error_handler');
303   ok($db->raise_error, 'raise_error 1');
304   ok(!$db->print_error, 'print_error 1');
305   is($db->handle_error, $handler, 'handle_error 1');
307   $db->connect;
309   ok($db->raise_error, 'raise_error 2');
310   ok(!$db->print_error, 'print_error 2');
311   is($db->handle_error, $handler, 'handle_error 2');
312   is($db->dbh->{'HandleError'}, $handler, 'HandleError 1');
316   	my $sth = $db->dbh->prepare('select nonesuch from ?');
325   	my $sth = $db->dbh->prepare('select nonesuch from ?');