containers/bnpe-suffix: new testcase

For GitHub issue #3
Change-Id: I3478d1fc0f9ce9a1b3b93330210c07c8723c819c
no-tn-check

Author: pmderodat

testsuite/tests/containers/bnpe-suffix/foo-bar.adb

@@ -0,0 +1,14 @@
+with Ada.Containers.Doubly_Linked_Lists;
+
+package body Foo.Bar is
+   package My_Lists is
+     new Ada.Containers.Doubly_Linked_Lists (Integer);
+
+   L : My_Lists.List;
+
+   procedure Dummy is begin
+      L.Append (1);
+      L.Append (2);
+      L.Append (3); --  BREAK
+   end;
+end Foo.Bar;

testsuite/tests/containers/bnpe-suffix/foo-bar.ads

@@ -0,0 +1,3 @@
+package Foo.Bar is
+   procedure Dummy;
+end;

testsuite/tests/containers/bnpe-suffix/foo.ads

@@ -0,0 +1,2 @@
+package Foo is
+end Foo;

testsuite/tests/containers/bnpe-suffix/lister.adb

@@ -0,0 +1,11 @@
+with Ada.Containers.Doubly_Linked_Lists;
+with Foo.Bar;
+
+procedure Lister is
+   package Main_Lists is
+     new Ada.Containers.Doubly_Linked_Lists (Integer);
+
+   ML : Main_Lists.List;
+begin
+   Foo.Bar.Dummy;
+end;

testsuite/tests/containers/bnpe-suffix/test.py

@@ -0,0 +1,8 @@
+from support.build import gnatmake
+from support.gdb import GDBSession
+
+
+gnatmake('lister')
+gdb = GDBSession('lister')
+gdb.run_to(gdb.find_loc('foo-bar.adb', 'BREAK'))
+gdb.print_expr('l', 'foo.bar.my_lists.list of length 2 = {1, 2}')

testsuite/tests/containers/bnpe-suffix/test.yaml

@@ -0,0 +1 @@
+driver: python