Failing test to catch and reproduce #143

pesse · pesse · commit 6717057c5fe2 · 2019-06-05T00:13:41.000+02:00
diff --git a/src/test/java/org/utplsql/cli/PathMapperTest.java b/src/test/java/org/utplsql/cli/PathMapperTest.java
@@ -0,0 +1,26 @@
+package org.utplsql.cli;
+
+import org.junit.jupiter.api.Test;
+import org.utplsql.api.TestRunner;
+
+import java.util.ArrayList;
+
+public class PathMapperTest {
+
+    @Test
+    void checkPathMapperOutput() {
+        RunCommand runCmd = TestHelper.createRunCommand(TestHelper.getConnectionString(),
+                "-f=ut_sonar_test_reporter",
+                "-o=sonar_result.xml",
+                "-s",
+                "-d",
+                "-source_path=src/test/resources/plsql/source",
+                "-owner=app",
+                "-regex_expression=\"*\"",
+                "-type_mapping=\"sql=PACKAGE BODY\"",
+                "-test_path=src/test/resources/plsql/test"
+                );
+
+        TestRunner testRunner = runCmd.newTestRunner(new ArrayList<>());;
+    }
+}
diff --git a/src/test/resources/plsql/source/betwnstr.sql b/src/test/resources/plsql/source/betwnstr.sql
@@ -0,0 +1,9 @@
+create or replace function betwnstr( a_string varchar2, a_start_pos integer, a_end_pos integer ) return varchar2 is
+  l_start_pos pls_integer := a_start_pos;
+begin
+  if l_start_pos = 0 then
+    l_start_pos := 1;
+  end if;
+  return substr( a_string, l_start_pos, a_end_pos - l_start_pos + 1);
+end;
+/
diff --git a/src/test/resources/plsql/test/test_betwnstr.pkg b/src/test/resources/plsql/test/test_betwnstr.pkg
@@ -0,0 +1,51 @@
+create or replace package test_betwnstr as
+
+  -- %suite(Between string function)
+
+  -- %test(Returns substring from start position to end position)
+  procedure normal_case;
+
+  -- %test(Returns substring when start position is zero)
+  procedure zero_start_position;
+
+  -- %test(Returns string until end if end position is greater than string length)
+  procedure big_end_position;
+
+  -- %test(Returns null for null input string value)
+  procedure null_string;
+
+  -- %test(Demo of a disabled test)
+  -- %disabled
+  procedure disabled_test;
+
+end;
+/
+create or replace package body test_betwnstr as
+
+  procedure normal_case is
+  begin
+    ut.expect( betwnstr( '1234567', 2, 5 ) ).to_equal('2345');
+  end;
+
+  procedure zero_start_position is
+  begin
+    ut.expect( betwnstr( '1234567', 0, 5 ) ).to_equal('12345');
+  end;
+
+  procedure big_end_position is
+  begin
+    ut.expect( betwnstr( '1234567', 0, 500 ) ).to_equal('1234567');
+  end;
+
+  procedure null_string is
+  begin
+    ut.expect( betwnstr( null, 2, 5 ) ).to_be_null;
+  end;
+
+  procedure disabled_test is
+  begin
+    ut.expect( betwnstr( null, null, null) ).not_to_be_null;
+  end;
+
+end;
+/
