Mercurial > hg > monetdb-perl

comparison DBD/t/07q.t @ 22:5682bb9496a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adapt the tests for the new quoting style (r'bla' instead of 'bla'), as introduced in commit 8a0be77580c3
author Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>
date Tue, 15 Dec 2020 11:29:30 +0100 (2020-12-15)
parents 8c8bd15f7a0b
children
comparison
equal deleted inserted replaced
21:bb10a1ab8897 22:5682bb9496a4
31 eval { $dbh->quote }; 31 eval { $dbh->quote };
32 ok( $@,"Call to quote() with 0 arguments, error expected: $@"); 32 ok( $@,"Call to quote() with 0 arguments, error expected: $@");
33 33
34 my $val = 34 my $val =
35 [ 35 [
36 [ 1 , q{'1'} ] 36 [ 1 , q{r'1'} ]
37 , [ 2 , q{'2'} ] 37 , [ 2 , q{r'2'} ]
38 , [ undef , 'NULL' ] 38 , [ undef , 'NULL' ]
39 , ['NULL' , q{'NULL'} ] 39 , ['NULL' , q{r'NULL'} ]
40 , ['ThisIsAString' , q{'ThisIsAString'} ] 40 , ['ThisIsAString' , q{r'ThisIsAString'} ]
41 , ['This is Another String', q{'This is Another String'} ] 41 , ['This is Another String', q{r'This is Another String'} ]
42 , ["This isn't unusual" , q{'This isn''t unusual'} ] 42 , ["This isn't unusual" , q{r'This isn''t unusual'} ]
43 ]; 43 ];
44 for ( @$val ) { 44 for ( @$val ) {
45 my $val0 = $_->[0]; 45 my $val0 = $_->[0];
46 my $val1 = defined $val0 ? $val0 : 'undef'; 46 my $val1 = defined $val0 ? $val0 : 'undef';
47 my $val2 = $dbh->quote( $val0 ); 47 my $val2 = $dbh->quote( $val0 );