# HG changeset patch
# User Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>
# Date 1608028170 -3600
# Node ID 5682bb9496a4a388c4fe1496d5c47258b529eaad
# Parent  bb10a1ab88972d7f37667c4088648a31e4b429a8
Adapt the tests for the new quoting style

(r'bla' instead of 'bla'), as introduced in commit 8a0be77580c3

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];