Skip Menu |
 

This queue is for tickets about the Class-DBI-mysql CPAN distribution.

Report information
The Basics
Id: 41308
Status: new
Priority: 0/
Queue: Class-DBI-mysql

People
Owner: Nobody in particular
Requestors: leapingfrog [...] yahoo.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.00
Fixed in: (no value)



Subject: test t/mysql.t failed to insert rows in test database on windows
Download (untitled) / with headers
text/plain 617b
It looked like a change to the table was not reflected in the test for the not NULL attribute of "val". mysql server version 5.0.51a-community-nt Microsoft Windows XP Version 2002, Service Pack 3 2.20 GHz 448 MB RAM perl, v5.10.0 built for MSWin32-x86-multi-thread Changed test to create or insert rows from Class and object. Changed create to also insert a "val" since it must be non NULL. Added 2 more tests to test that object for Foo and Class::DBI::mysql Changed test total Minor output change to output of several tests Installed Time::Piece::MySQL to verify Skipped tests as well Attached: the working test
Subject: mysql.t
Download mysql.t
text/x-perl 2.2k
#!/usr/bin/perl -w use strict; use Test::More; my $HAVE_TP = eval { require Time::Piece::MySQL }; plan tests => 10; use_ok "Class::DBI::mysql"; #------------------------------------------------------------------------- # Let the testing begin #------------------------------------------------------------------------- package Foo; use base 'Class::DBI::mysql'; # Find a test database to use. my $db = $ENV{DBD_MYSQL_DBNAME} || 'test'; my $user = $ENV{DBD_MYSQL_USER} || ''; my $pass = $ENV{DBD_MYSQL_PASSWD} || ''; my $tbl = $ENV{DBD_MYSQL_TABLE} || 'tbcdbitest'; __PACKAGE__->set_db(Main => "dbi:mysql:$db", $user => $pass); __PACKAGE__->table($tbl); __PACKAGE__->drop_table; __PACKAGE__->create_table(q{ id MEDIUMINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, Name VARCHAR(50) NOT NULL, val SMALLINT UNSIGNED NOT NULL, mydate TIMESTAMP NOT NULL, Myvals ENUM('foo', 'bar') }); __PACKAGE__->set_up_table; __PACKAGE__->autoinflate(dates => 'Time::Piece') if $HAVE_TP; END { __PACKAGE__->drop_table } #------------------------------------------------------------------------- package main; can_ok Foo => "name"; my $count = 1; my $foo = new Foo; isa_ok($foo, "Class::DBI::mysql"); isa_ok($foo, "Foo"); Foo->create( { Name => $_, val => $count++ }) foreach ( ('MySQL has now support'), ( 'for full-text search'), ('Full-text indexes'), ( 'are called collections'), ('Only MyISAM tables'), ('support collections')); $foo->create({ Name => $_, val => $count++ }) foreach ( ('Function MATCH ... AGAINST()'), ('is used to do a search'), ('Full-text search in MySQL'), ( 'implements vector space model')); # Test random. Is there a sensible way to test this is actually # random? For now we'll just ensure that we get something back. my $obj = Foo->retrieve_random; isa_ok $obj => "Foo", "Retrieve a random row: \'" . $obj->Name . "\'"; SKIP: { skip "Need Time::Piece::MySQL", 2 unless $HAVE_TP; isa_ok $obj->mydate => "Time::Piece"; is $obj->mydate->ymd, Time::Piece->new->ymd, "From today"; } # Test coltyp my $type = Foo->column_type('Myvals'); like $type, qr/^enum/i, "Myvals is an enum"; my @vals = sort Foo->enum_vals('Myvals'); is_deeply \@vals, [qw/bar foo/], "Enum vals OK"; eval { Foo->enum_vals('mydate') }; ok $@, $@;


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.