Mercurial > hg > monetdb-perl

changeset 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 bb10a1ab8897
children 3fe895496a96
files DBD/t/07q.t
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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];