Re-purpose the typename_regex test to generally test Matcher.TypeName

Change-Id: Ibec08337290cd7673a6fa000164d4cd81c5ce128
TN: RC14-025

Author: pmderodat

testsuite/tests/matchers/typename_regex/foo.adb renamed to testsuite/tests/matchers/typename/foo.adb

@@ -2,9 +2,16 @@ procedure Foo is
    type My_Int_1 is new Integer;
    type My_Int_2 is new Integer;
 
+   type My_Nat is new Natural;
+
    I1 : My_Int_1 := 10;
    I2 : My_Int_2 := 20;
+   N  : My_Nat := 30;
+
+   I : Integer := 0;
 begin
    I1 := I1 + My_Int_1 (I2); --  BREAK
    I2 := I2 + My_Int_2 (I1);
+   N := N + 1;
+   I := I + 1;
 end Foo;

testsuite/tests/matchers/typename_regex/pp.py renamed to testsuite/tests/matchers/typename/pp.py

@@ -12,6 +12,15 @@ def to_string(self):
         return 'My_Int ({})'.format(int(self.value))
 
 
+class MyNatPrinter(PrettyPrinter):
+    name = 'My Nat'
+    type_pattern = Match.TypeName(name='foo.my_nat')
+
+    def to_string(self):
+        return 'My_Nat ({})'.format(int(self.value))
+
+
 printers = GDBPrettyPrinters('test')
 printers.append(MyIntPrinter)
+printers.append(MyNatPrinter)
 gdb.selected_frame().function().symtab.objfile.pretty_printers.append(printers)

testsuite/tests/matchers/typename_regex/test.py renamed to testsuite/tests/matchers/typename/test.py

@@ -9,3 +9,5 @@
 gdb.test('source pp.py', '')
 gdb.print_expr('i1', 'My_Int (10)')
 gdb.print_expr('i2', 'My_Int (20)')
+gdb.print_expr('n', 'My_Nat (30)')
+gdb.print_expr('i', '0')