Attachment 159786 Details for Bug 242699 – backport of test code

[patch] backport of test code

perl-DBI-rows-is_a_number.test.patch (text/plain), 1.67 KB, created by Martin Poole on 2007-07-23 14:25:44 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Martin Poole

Created: 2007-07-23 14:25:44 UTC

Size: 1.67 KB

patch

obsolete

>--- dbi/trunk/t/10examp.t	2004/02/27 05:12:51	166
>+++ dbi/trunk/t/10examp.t	2004/02/27 22:35:48	167
>@@ -375,6 +375,7 @@
> $rows = $csr_b->rows;
> ok(0, $rows > 0, "row count $rows");
> ok(0, $rows == @$r, "$rows vs ".@$r);
>+ok(0, $rows == $DBI::rows, "$rows vs $DBI::rows");
> #$csr_b->trace(0);
> 
> # ---
>@@ -671,4 +672,4 @@
> 
> exit 0;
> 
>-BEGIN { $tests = 245; }
>+BEGIN { $tests = 246; }
>--- dbi/trunk/t/01basics.t	2004/02/27 05:12:51	166
>+++ dbi/trunk/t/01basics.t	2004/02/27 22:35:48	167
>@@ -81,18 +81,21 @@
> 
> ok(0, SQL_VARCHAR == 12);
> ok(0, SQL_ALL_TYPES == 0);
>-ok(0, neat(1+1) eq "2");
>-ok(0, neat("2") eq "'2'");
>-ok(0, neat(undef) eq "undef");
>-ok(0, neat_list([1+1, "2", undef, "foobarbaz"], 8, "|") eq "2|'2'|undef|'foo...'");
> 
>-my @is_num = looks_like_number(undef, "", "foo", 1, ".");
>+my @is_num = looks_like_number(undef, "", "foo", 1, ".", 2, "2");
> ok(0, !defined $is_num[0]);	# undef -> undef
> ok(0, !defined $is_num[1]);	# "" -> undef (eg "don't know")
> ok(0,  defined $is_num[2]);	# "foo" -> defined false
> ok(0,         !$is_num[2]);	# "foo" -> defined false
> ok(0,          $is_num[3]); # 1 -> true
> ok(0,         !$is_num[4]); # "." -> false
>+ok(0,          $is_num[5]); # 1 -> true
>+ok(0,          $is_num[6]); # 1 -> true
>+
>+ok(0, neat(1+1) eq "2");
>+ok(0, neat("2") eq "'2'");
>+ok(0, neat(undef) eq "undef");
>+ok(0, neat_list([1+1, "2", undef, "foobarbaz"], 8, "|") eq "2|'2'|undef|'foo...'");
> 
> ok(0, DBI::hash("foo1"  ) == -1077531989,  DBI::hash("foo1"));
> ok(0, DBI::hash("foo1",0) == -1077531989,  DBI::hash("foo1",0));
>@@ -117,5 +120,5 @@
> ok(0, @installed_drivers >= 1);
> ok(0, grep { $_ eq 'Sponge' } @installed_drivers);
> 
>-BEGIN { $tests = 43 }
>+BEGIN { $tests = 45 }
> exit 0;

Actions: View | Diff

Attachments on bug 242699: 156223 | 159786