PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib -I/usr/local/lib/pe
rl5/5.6.1/i686-linux -I/usr/local/lib/perl5/5.6.1 -e 'use Test::Harness qw(&runt
ests $verbose); $verbose=1; runtests @ARGV;' t/*.t
t/01base............1..5
ok 1
ok 2
ok 3
ok 4
ok 5
ok
t/02simple..........1..14
ok 1
Test 2: connecting to the database
ok 2
Test 3: create test table
Using fields: A SMALLINT, B VARCHAR(255), C LONGCHAR, D DATETIME
ok 3
Test 4: check existance of test table
(unknown owner).PERL_DBD_TEST
ok 4
Test 5: insert test data
ok 5
Test 6: select test data
1|foo|foo varchar|
2|bar|bar varchar|
3|bletch|bletch varchar|
4|80char|THIS IS A STRING LONGER THAN 80 CHARS. THIS SHOULD BE CHECKED FOR TRUN
CATION AND COMPARED WITH ITSELF.|
5|gt250char|THIS IS A STRING LONGER THAN 80 CHARS. THIS SHOULD BE CHECKED FOR T
RUNCATION AND COMPARED WITH ITSELF. THIS IS A STRING LONGER THAN 80 CHARS. THI
S SHOULD BE CHECKED FOR TRUNCATION AND COMPARED WITH ITSELF. THIS IS A STRING L
ONGER THAN 80 CHARS. THIS SHOULD BE CHECKED FOR TRUNCATION AND COMPARED WITH IT
SELF. THIS IS A STRING LONGER THAN 80 CHARS. THIS SHOULD BE CHECKED FOR TRUNCA
TION AND COMPARED WITH ITSELF.|
retrieved 103 byte string OK
retrieved 418 byte string OK
ok 6
Tests 7,8: test LongTruncOk
ok 7
ok 8
Test 9: test ColAttributes
Column count is: 4
1: A = 5
2: B = 12
3: C = -1
4: D = 11
ok 9
Test 10: test $DBI::err
ok 10
Test 11: test date values
ok 11
Test 12: test group by queries
1, 1
2, 1
3, 1
4, 1
5, 1
ok 12
Test 13: test data_sources
dubious
Test returned status 0 (wstat 11, 0xb)
DIED. FAILED tests 13-14
Failed 2/14 tests, 85.71% okay
t/03dbatt...........1..6
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok
t/05meth............1..6
ok 1
ok 2
ok 3
ok 4
@row a,b:3,bletch
@row a,b:1,foo
@row a,b:2,bar
@row a,b:4,80char
@row a,b:5,gt250char
bind_col a,b:3,bletch
bind_col a,b:1,foo
bind_col a,b:2,bar
bind_col a,b:4,80char
bind_col a,b:5,gt250char
ok 5
bind_columns a,b:3,bletch
bind_columns a,b:1,foo
bind_columns a,b:2,bar
bind_columns a,b:4,80char
bind_columns a,b:5,gt250char
ok 6
ok
t/09bind............1..9
ok 1
Test 2: connecting to the database
ok 2
Test 3: create test table
Using fields: A SMALLINT, B VARCHAR(255), C LONGCHAR, D DATETIME
ok 3
Test 4: insert test data
SQL_DATE = 9 SQL_TIMESTAMP = 11
TYPE FOUND = 11
Binding the date value: "{ts '1998-05-13 00:01:00'}"
SQL_DATE = 9 SQL_TIMESTAMP = 11
TYPE FOUND = 11
Binding the date value: "{ts '1998-05-14 00:01:00'}"
SQL_DATE = 9 SQL_TIMESTAMP = 11
TYPE FOUND = 11
Binding the date value: "{ts '1998-05-15 00:01:00'}"
ok 4
Test 5: select test data
1|foo|foo varchar|
2|bar|bar varchar|
3|bletch|bletch varchar|
ok 5
Test 6: insert long test data
SQL_DATE = 9 SQL_TIMESTAMP = 11
TYPE FOUND = 11
Binding the date value: "{ts '2000-05-13 00:01:00'}"
SQL_DATE = 9 SQL_TIMESTAMP = 11
TYPE FOUND = 11
Binding the date value: "{ts '2000-05-14 00:01:00'}"
SQL_DATE = 9 SQL_TIMESTAMP = 11
TYPE FOUND = 11
Binding the date value: "{ts '2000-05-15 00:01:00'}"
ok 6
Test 7: check long test data
4|foo2|This is a test of a string that is longer than 80 characters. It will be
checked for truncation and compared with itself.|
5|bar2|This is a test of a string that is longer than 80 characters. It will be
checked for truncation and compared with itself. This is a test of a string th
at is longer than 80 characters. It will be checked for truncation and compared
with itself.|
6|bletch2|This is a test of a string that is longer than 80 characters. It will
be checked for truncation and compared with itself. This is a test of a string
that is longer than 80 characters. It will be checked for truncation and compa
red with itself. This is a test of a string that is longer than 80 characters.
It will be checked for truncation and compared with itself. This is a test of
a string that is longer than 80 characters. It will be checked for truncation a
nd compared with itself.|
ok 7
Test 8: update long test data
ok 8
Test 9: check long test data
4|foo2|This is a test of a string that is longer than 80 characters. It will be
checked for truncation and compared with itself. This is a test of a string th
at is longer than 80 characters. It will be checked for truncation and compared
with itself.|
5|bar2|This is a test of a string that is longer than 80 characters. It will be
checked for truncation and compared with itself. This is a test of a string th
at is longer than 80 characters. It will be checked for truncation and compared
with itself. This is a test of a string that is longer than 80 characters. It
will be checked for truncation and compared with itself. This is a test of a s
tring that is longer than 80 characters. It will be checked for truncation and
compared with itself.|
6|bletch2|This is a test of a string that is longer than 80 characters. It will
be checked for truncation and compared with itself. This is a test of a string
that is longer than 80 characters. It will be checked for truncation and compa
red with itself. This is a test of a string that is longer than 80 characters.
It will be checked for truncation and compared with itself. This is a test of
a string that is longer than 80 characters. It will be checked for truncation a
nd compared with itself. This is a test of a string that is longer than 80 char
acters. It will be checked for truncation and compared with itself. This is a
test of a string that is longer than 80 characters. It will be checked for trun
cation and compared with itself. This is a test of a string that is longer than
80 characters. It will be checked for truncation and compared with itself. Th
is is a test of a string that is longer than 80 characters. It will be checked
for truncation and compared with itself.|
ok 9
ok
Failed Test Status Wstat Total Fail Failed List of Failed
--------------------------------------------------------------------------------
t/02simple.t 0 11 14 2 14.29% 13-14
Failed 1/5 test scripts, 80.00% okay. 2/40 subtests failed, 95.00% okay.
make: *** [test_dynamic] Error 29
##############Þ
print "\n Welcome to NEPP";$Þ=1;while ($Þ){
print "\n$Þ";$Þ++;if ($Þ == 1000) {
print "\n$Þ"."\nWell almost never ending :þ";exit;}}
##############Þ
