add test for -drc

diff --git a/t/snippets/drc.in b/t/snippets/drc.in
new file mode 100644 (file)
index 0000000..5c8897d
--- /dev/null
+++ b/t/snippets/drc.in
@@ -0,0 +1 @@
+ignoreSpec( $file, "file",, \%spec,,, \%Rspec );

diff --git a/t/snippets/drc.par b/t/snippets/drc.par
new file mode 100644 (file)
index 0000000..5691220
--- /dev/null
+++ b/t/snippets/drc.par
@@ -0,0 +1 @@
+-drc

diff --git a/t/snippets/expect/drc.def b/t/snippets/expect/drc.def
new file mode 100644 (file)
index 0000000..5c8897d
--- /dev/null
+++ b/t/snippets/expect/drc.def
@@ -0,0 +1 @@
+ignoreSpec( $file, "file",, \%spec,,, \%Rspec );

diff --git a/t/snippets/expect/drc.drc b/t/snippets/expect/drc.drc
new file mode 100644 (file)
index 0000000..f47324b
--- /dev/null
+++ b/t/snippets/expect/drc.drc
@@ -0,0 +1 @@
+ignoreSpec( $file, "file", \%spec, \%Rspec );

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index cdd9257afb313644fb14f6711118ada0f9a32624..03d937a54bed17d5183b94aad8f6fdddfca57e4b 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -353,6 +353,7 @@
 ../snippets26.t        c133.def
 ../snippets26.t        git93.def
 ../snippets26.t        git93.git93
+../snippets26.t        c139.def
 ../snippets3.t ce_wn1.ce_wn
 ../snippets3.t ce_wn1.def
 ../snippets3.t colin.colin
@@ -493,4 +494,5 @@
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
-../snippets26.t        c139.def
+../snippets26.t        drc.def
+../snippets26.t        drc.drc

diff --git a/t/snippets26.t b/t/snippets26.t
index 5cf8a6cb677f8893bd04018142bad63fa21e1aed..644dc5babc1a5f5d8df7c79988305d25cd5b8622 100644 (file)
--- a/t/snippets26.t
+++ b/t/snippets26.t
@@ -9,6 +9,8 @@
 #6 git93.def
 #7 git93.git93
 #8 c139.def
+#9 drc.def
+#10 drc.drc
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -29,6 +31,7 @@ BEGIN {
         'bal2'  => "-bal=2",
         'c133'  => "-boc",
         'def'   => "",
+        'drc'   => "-drc",
         'git93' => <<'----------',
 -vxl='q'
 ----------
@@ -95,6 +98,10 @@ _
 $r = $c->         
 
 sql_set_env_attr( $evh, $SQL_ATTR_ODBC_VERSION, $SQL_OV_ODBC2, 0 );
+----------
+
+        'drc' => <<'----------',
+ignoreSpec( $file, "file",, \%spec,,, \%Rspec );
 ----------
 
         'git93' => <<'----------',
@@ -405,6 +412,22 @@ $r = $c->
   sql_set_env_attr( $evh, $SQL_ATTR_ODBC_VERSION, $SQL_OV_ODBC2, 0 );
 #8...........
         },
+
+        'drc.def' => {
+            source => "drc",
+            params => "def",
+            expect => <<'#9...........',
+ignoreSpec( $file, "file",, \%spec,,, \%Rspec );
+#9...........
+        },
+
+        'drc.drc' => {
+            source => "drc",
+            params => "drc",
+            expect => <<'#10...........',
+ignoreSpec( $file, "file", \%spec, \%Rspec );
+#10...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};