langkit_support/slocs: extend testcase

For GitHub issue AdaCore#492
Roldak · May 7, 2021 · 3ee2d23 · 3ee2d23
1 parent 121b40f
commit 3ee2d23
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/testsuite/tests/langkit_support/slocs/main.adb b/testsuite/tests/langkit_support/slocs/main.adb
@@ -49,6 +49,8 @@ begin
    Check_Sloc ("a:2");
 
    Check_Sloc_Range ("1:2-3:4");
+   Check_Sloc_Range ("");
+   Check_Sloc_Range ("1:2");
    Check_Sloc_Range ("1:2-3:");
    Check_Sloc_Range (":2-3:4");
    Check_Sloc_Range ("1:-3:4");

diff --git a/testsuite/tests/langkit_support/slocs/test.out b/testsuite/tests/langkit_support/slocs/test.out
@@ -6,6 +6,8 @@
 "-1:2" -> error: invalid line number: "-1"
 "a:2" -> error: invalid line number: "a"
 "1:2-3:4" -> 1:2-3:4
+"" -> error: invalid source location
+"1:2" -> error: invalid source location
 "1:2-3:" -> error: invalid column number: ""
 ":2-3:4" -> error: invalid line number: ""
 "1:-3:4" -> error: invalid column number: ""