Changeset: 5682bb9496a4 for monetdb-perl
URL: https://dev.monetdb.org/hg/monetdb-perl?cmd=changeset;node=5682bb9496a4
Modified Files:
DBD/t/07q.t
Branch: default
Log Message:
Adapt the tests for the new quoting style
(r'bla' instead of 'bla'), as introduced in commit 8a0be77580c3
diffs (23 lines):
diff --git a/DBD/t/07q.t b/DBD/t/07q.t
--- a/DBD/t/07q.t
+++ b/DBD/t/07q.t
@@ -33,13 +33,13 @@ ok( $@,"Call to quote() with 0 arguments
my $val =
[
- [ 1 , q{'1'} ]
-, [ 2 , q{'2'} ]
+ [ 1 , q{r'1'} ]
+, [ 2 , q{r'2'} ]
, [ undef , 'NULL' ]
-, ['NULL' , q{'NULL'} ]
-, ['ThisIsAString' , q{'ThisIsAString'} ]
-, ['This is Another String', q{'This is Another String'} ]
-, ["This isn't unusual" , q{'This isn''t unusual'} ]
+, ['NULL' , q{r'NULL'} ]
+, ['ThisIsAString' , q{r'ThisIsAString'} ]
+, ['This is Another String', q{r'This is Another String'} ]
+, ["This isn't unusual" , q{r'This isn''t unusual'} ]
];
for ( @$val ) {
my $val0 = $_->[0];
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list
