home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gdb-4.9 / gdb / testsuite / gdb.t20 / classes.exp next >
Encoding:
Text File  |  1993-05-12  |  23.8 KB  |  777 lines
  1. # Copyright (C) 1992 Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. # Please email any bugs, comments, and/or additions to this file to:
  18. # bug-gdb@prep.ai.mit.edu
  19.  
  20. # This file was written by Fred Fish. (fnf@cygnus.com)
  21.  
  22. if $tracelevel then {
  23.     strace $tracelevel
  24. }
  25.  
  26. #
  27. # Test ptype of class objects.
  28. #
  29.  
  30. proc test_ptype_class_objects {} {
  31.     global prompt
  32.  
  33.     set passcount 0
  34.  
  35.     # Note that struct members are public by default, so we don't print
  36.     # "public:" for the public members of structs.
  37.  
  38.     send "ptype struct default_public_struct\n"
  39.     expect {
  40.     -re "type = struct default_public_struct \{\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  41.         incr passcount
  42.     }
  43.     -re ".*$prompt $" { fail "ptype struct default_public_struct" }
  44.     timeout { fail "ptype struct default_public_struct (timeout)" ; return }
  45.     }
  46.  
  47.     # Note that struct members are public by default, so we don't print
  48.     # "public:" for the public members of structs.
  49.  
  50.     send "ptype struct explicit_public_struct\n"
  51.     expect {
  52.     -re "type = struct explicit_public_struct \{\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  53.         incr passcount
  54.     }
  55.     -re ".*$prompt $" { fail "ptype struct explicit_public_struct" }
  56.     timeout { fail "ptype struct explicit_public_struct (timeout)" ; return }
  57.     }
  58.  
  59.     # Accept it as an expected failure if gdb just fails to distinguish between
  60.     # class and struct, and everything else is OK.
  61.  
  62.     setup_xfail "*-*-*"
  63.     send "ptype struct protected_struct\n"
  64.     expect {
  65.     -re "type = struct protected_struct \{\r\n\[ \]*protected:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  66.         incr passcount
  67.     }
  68.     -re "type = class protected_struct \{\r\n\[ \]*protected:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  69.         fail "ptype struct protected_struct (FIXME)"
  70.     }
  71.     -re ".*$prompt $" { fail "ptype struct protected_struct" }
  72.     timeout { fail "ptype struct protected_struct (timeout)" ; return }
  73.     }
  74.  
  75.     # Accept it as an expected failure if gdb just fails to distinguish between
  76.     # class and struct, and everything else is OK.
  77.  
  78.     setup_xfail "*-*-*"
  79.     send "ptype struct private_struct\n"
  80.     expect {
  81.     -re "type = struct private_struct \{\r\n\[ \]*private:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  82.         incr passcount
  83.     }
  84.     -re "type = class private_struct \{\r\n\[ \]*private:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" { 
  85.         fail "ptype struct private_struct (FIXME)"
  86.     }
  87.     -re ".*$prompt $" { fail "ptype struct private_struct" }
  88.     timeout { fail "ptype struct private_struct (timeout)" ; return }
  89.     }
  90.  
  91.     # Accept it as an expected failure if gdb just fails to distinguish between
  92.     # class and struct, and everything else is OK.
  93.  
  94.     setup_xfail "*-*-*"
  95.     send "ptype struct mixed_protection_struct\n"
  96.     expect {
  97.     -re "type = struct mixed_protection_struct \{\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\[ \]*private:\r\n\[ \]*int c;\r\n\[ \]*int d;\r\n\[ \]*protected:\r\n\[ \]*int e;\r\n\[ \]*int f;\r\n\[ \]*public:\r\n\[ \]*int g;\r\n\[ \]*private:\r\n\[ \]*int h;\r\n\[ \]*protected:\r\n\[ \]*int i;\r\n\}\r\n$prompt $" {
  98.         incr passcount
  99.     }
  100.     -re "type = class mixed_protection_struct \{\r\n\[ \]*public:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\[ \]*private:\r\n\[ \]*int c;\r\n\[ \]*int d;\r\n\[ \]*protected:\r\n\[ \]*int e;\r\n\[ \]*int f;\r\n\[ \]*public:\r\n\[ \]*int g;\r\n\[ \]*private:\r\n\[ \]*int h;\r\n\[ \]*protected:\r\n\[ \]*int i;\r\n\}\r\n$prompt $" {
  101.         fail "ptype struct mixed_protection_struct (FIXME)"
  102.     }
  103.     -re ".*$prompt $" { fail "ptype struct mixed_protection_struct" }
  104.     timeout { fail "ptype struct mixed_protection_struct (timeout)" ; return }
  105.     }
  106.  
  107.     # Accept it as an expected failure if gdb just fails to distinguish between
  108.     # class and struct, and everything else is OK.
  109.  
  110.     setup_xfail "*-*-*"
  111.     send "ptype class public_class\n"
  112.     expect {
  113.     -re "type = class public_class \{\[ \]*public:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  114.         incr passcount
  115.     }
  116.     -re "type = struct public_class \{\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  117.         fail "ptype class public_class (FIXME)"
  118.     }
  119.     -re ".*$prompt $" { fail "ptype class public_class" }
  120.     timeout { fail "ptype class public_class (timeout)" ; return }
  121.     }
  122.  
  123.     send "ptype class protected_class\n"
  124.     expect {
  125.     -re "type = class protected_class \{\r\n\[ \]*protected:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  126.         incr passcount
  127.     }
  128.     -re "type = struct protected_class \{\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  129.         setup_xfail "*-*-*"
  130.         fail "ptype class protected_class"
  131.     }
  132.     -re ".*$prompt $" { fail "ptype class protected_class" }
  133.     timeout { fail "ptype class protected_class (timeout)" ; return }
  134.     }
  135.  
  136.     # Accept it as an expected failure if gdb just emits a superflous "private:"
  137.     # attribute, since classes default to private and for consistency with
  138.     # structs (where we don't print the "public:" attribute) we don't print
  139.     # the "private:" attribute.
  140.  
  141.     setup_xfail "*-*-*"
  142.     send "ptype class default_private_class\n"
  143.     expect {
  144.     -re "type = class default_private_class \{\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  145.         incr passcount
  146.     }
  147.     -re "type = class default_private_class \{\r\n\[ \]*private:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  148.         fail "ptype class default_private_class (FIXME)"
  149.     }
  150.     -re ".*$prompt $" { fail "ptype class default_private_class" }
  151.     timeout { fail "ptype class default_private_class (timeout)" ; return }
  152.     }
  153.  
  154.     send "ptype class explicit_private_class\n"
  155.     expect {
  156.     -re "type = class explicit_private_class \{\r\n\[ \]*private:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  157.         incr passcount
  158.     }
  159.     -re "type = struct explicit_private_class \{\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\}\r\n$prompt $" {
  160.         setup_xfail "*-*-*"
  161.         fail "ptype class explicit_private_class"
  162.     }
  163.     -re ".*$prompt $" { fail "ptype class explicit_private_class" }
  164.     timeout { fail "ptype class explicit_private_class (timeout)" ; return }
  165.     }
  166.  
  167.     send "ptype class mixed_protection_class\n"
  168.     expect {
  169.     -re "type = class mixed_protection_class \{\r\n\[ \]*public:\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\[ \]*private:\r\n\[ \]*int c;\r\n\[ \]*int d;\r\n\[ \]*protected:\r\n\[ \]*int e;\r\n\[ \]*int f;\r\n\[ \]*public:\r\n\[ \]*int g;\r\n\[ \]*private:\r\n\[ \]*int h;\r\n\[ \]*protected:\r\n\[ \]*int i;\r\n\}\r\n$prompt $" {
  170.         incr passcount
  171.     }
  172.     -re "type = struct mixed_protection_class \{\r\n\[ \]*int a;\r\n\[ \]*int b;\r\n\[ \]*int c;\r\n\[ \]*int d;\r\n\[ \]*int e;\r\n\[ \]*int f;\r\n\[ \]*int g;\r\n\[ \]*int h;\r\n\[ \]*int i;\r\n\}\r\n$prompt $" {
  173.         setup_xfail "*-*-*"
  174.         fail "ptype class mixed_protection_class"
  175.     }
  176.     -re ".*$prompt $" { fail "ptype class mixed_protection_class" }
  177.     timeout { fail "ptype class mixed_protection_class (timeout)" ; return }
  178.     }
  179.  
  180.     # Accept it as an expected failure if gdb just fails to distinguish between
  181.     # class and struct, and everything else is OK.
  182.  
  183.     setup_xfail "*-*-*"
  184.     send "ptype class A\n"
  185.     expect {
  186.     -re "type = class A \{\r\n\[ \]*public:\r\n\[ \]*int a;\r\n\[ \]*int x;\r\n\[ \]*\}\r\n$prompt $" {
  187.         incr passcount
  188.     }
  189.     -re "type = struct A \{\r\n\[ \]*int a;\r\n\[ \]*int x;\r\n\[ \]*\}\r\n$prompt $" {
  190.         fail "ptype class A (FIXME)"
  191.     }
  192.     -re ".*$prompt $" { fail "ptype class A" }
  193.     timeout { fail "ptype class A (timeout)" ; return }
  194.     }
  195.  
  196.     # Accept it as an expected failure if gdb just fails to distinguish between
  197.     # class and struct, and everything else is OK.
  198.  
  199.     send "ptype class B\n"
  200.     expect {
  201.     -re "type = class B : public A \{\r\n\[ \]*public:\r\n\[ \]*int b;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  202.         incr passcount
  203.     }
  204.     -re "type = struct B \{\r\n\[ \]*struct A A;\r\n\[ \]*int b;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  205.         setup_xfail "*-*-*"
  206.         fail "ptype class B"
  207.     }
  208.     -re ".*$prompt $" { fail "ptype class B" }
  209.     timeout { fail "ptype class B (timeout)" ; return }
  210.     }
  211.  
  212.     send "ptype class C\n"
  213.     expect {
  214.     -re "type = class C : public A \{\r\n\[ \]*public:\r\n\[ \]*int c;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  215.         incr passcount
  216.     }
  217.     -re "type = struct C \{\r\n\[ \]*struct A A;\r\n\[ \]*int c;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  218.         setup_xfail "*-*-*"
  219.         fail "ptype class C"
  220.     }
  221.     -re ".*$prompt $" { fail "ptype class C" }
  222.     timeout { fail "ptype class C (timeout)" ; return }
  223.     }
  224.  
  225.     send "ptype class D\n"
  226.     expect {
  227.     -re "type = class D : public B, public C \{\r\n\[ \]*public:\r\n\[ \]*int d;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  228.         incr passcount
  229.     }
  230.     -re "type = struct D \{\r\n\[ \]*struct B B;\r\n\[ \]*struct C C;\r\n\[ \]*int d;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  231.         setup_xfail "*-*-*"
  232.         fail "ptype class D"
  233.     }
  234.     -re ".*$prompt $" { fail "ptype class D" }
  235.     timeout { fail "ptype class D (timeout)" ; return }
  236.     }
  237.  
  238.     send "ptype class E\n"
  239.     expect {
  240.     -re "type = class E : public D \{\r\n\[ \]*public:\r\n\[ \]*int e;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  241.         incr passcount
  242.     }
  243.     -re "type = struct E \{\r\n\[ \]*struct D D;\r\n\[ \]*int e;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  244.         setup_xfail "*-*-*"
  245.         fail "ptype class D"
  246.     }
  247.     -re ".*$prompt $" { fail "ptype class E" }
  248.     timeout { fail "ptype class E (timeout)" ; return }
  249.     }
  250.  
  251.     # Accept it as an expected failure if gdb just fails to distinguish between
  252.     # class and struct, and everything else is OK.
  253.  
  254.     setup_xfail "*-*-*"
  255.     send "ptype class vA\n"
  256.     expect {
  257.     -re "type = class vA \{\r\n\[ \]*public:\r\n\[ \]*int va;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  258.         incr passcount
  259.     }
  260.     -re "type = struct vA \{\r\n\[ \]*int va;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  261.         fail "ptype class vA (FIXME)"
  262.     }
  263.     -re ".*$prompt $" { fail "ptype class vA" }
  264.     timeout { fail "ptype class vA (timeout)" ; return }
  265.     }
  266.  
  267.     # Accept the form with embedded GNU style mangled virtual table constructs
  268.     # for now, but with a FIXME.  At some future point, gdb should use a
  269.     # portable representation for the virtual table constructs.
  270.  
  271.     setup_xfail "*-*-*"
  272.     send "ptype class vB\n"
  273.     expect {
  274.     -re "type = class vB : public virtual vA \{\r\n\[ \]*private:\r\n\[ \]*vA \*_vb\\\$vA;\r\n\[ \]*public:\r\n\[ \]*int vb;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  275.         fail "ptype class vB (FIXME)"
  276.     }
  277.     -re ".*$prompt $" { fail "ptype class vB" }
  278.     timeout { fail "ptype class vB (timeout)" ; return }
  279.     }
  280.  
  281.     # Accept the form with embedded GNU style mangled virtual table constructs
  282.     # for now, but with a FIXME.  At some future point, gdb should use a
  283.     # portable representation for the virtual table constructs.
  284.  
  285.     setup_xfail "*-*-*"
  286.     send "ptype class vC\n"
  287.     expect {
  288.     -re "type = class vC : public virtual vA \{\r\n\[ \]*private:\r\n\[ \]*vA \*_vb\\\$vA;\r\n\[ \]*public:\r\n\[ \]*int vc;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  289.         fail "ptype class vC (FIXME)"
  290.     }
  291.     -re ".*$prompt $" { fail "ptype class vC" }
  292.     timeout { fail "ptype class vC (timeout)" ; return }
  293.     }
  294.  
  295.     # Accept the form with embedded GNU style mangled virtual table constructs
  296.     # for now, but with a FIXME.  At some future point, gdb should use a
  297.     # portable representation for the virtual table constructs.
  298.  
  299.     setup_xfail "*-*-*"
  300.     send "ptype class vD\n"
  301.     expect {
  302.     -re "type = class vD : public virtual vB, public virtual vC \{\r\n\[ \]*private:\r\n\[ \]*vC \*_vb\\\$vC;\r\n\[ \]*vB \*_vb\\\$vB;\r\n\[ \]*public:\r\n\[ \]*int vd;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  303.         fail "ptype class vD (FIXME)"
  304.     }
  305.     -re ".*$prompt $" { fail "ptype class vD" }
  306.     timeout { fail "ptype class vD (timeout)" ; return }
  307.     }
  308.  
  309.     # Accept the form with embedded GNU style mangled virtual table constructs
  310.     # for now, but with a FIXME.  At some future point, gdb should use a
  311.     # portable representation for the virtual table constructs.
  312.  
  313.     setup_xfail "*-*-*"
  314.     send "ptype class vE\n"
  315.     expect {
  316.     -re "type = class vE : public virtual vD \{\r\n\[ \]*private:\r\n\[ \]*vD \*_vb\\\$vD;\r\n\[ \]*public:\r\n\[ \]*int ve;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  317.         fail "ptype class vE (FIXME)"
  318.     }
  319.     -re ".*$prompt $" { fail "ptype class vE" }
  320.     timeout { fail "ptype class vE (timeout)" ; return }
  321.     }
  322.  
  323.     send "ptype class Base1\n"
  324.     expect {
  325.     -re "type = class Base1 \{\r\n\[ \]*public:\r\n\[ \]*int x;\r\n\r\n\[ \]*Base1\(int\);\r\n\}\r\n$prompt $" {
  326.         incr passcount
  327.     }
  328.     -re "type = struct Base1 \{\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  329.         setup_xfail "*-*-*"
  330.         fail "ptype class Base1"
  331.     }
  332.     -re ".*$prompt $" { fail "ptype class Base1" }
  333.     timeout { fail "ptype class Base1 (timeout)" ; return }
  334.     }
  335.  
  336.     send "ptype class Foo\n"
  337.     expect {
  338.     -re "type = class Foo \{\r\n\[ \]*public:\r\n\[ \]*int x;\r\n\[ \]*int y;\r\n\[ \]*static int st;\r\n\r\n\[ \]*Foo\(int, int\);\r\n\[ \]*int operator\!\(void\);\r\n\[ \]*int operator int\(void\);\r\n\[ \]*int times\(int\);\r\n\}\r\n$prompt $" {
  339.         incr passcount
  340.     }
  341.     -re "type = struct Foo \{\r\n\[ \]*int x;\r\n\[ \]*int y;\r\n\}\r\n$prompt $" {
  342.         setup_xfail "*-*-*"
  343.         fail "ptype class Foo"
  344.     }
  345.     -re ".*$prompt $" { fail "ptype class Foo" }
  346.     timeout { fail "ptype class Foo (timeout)" ; return }
  347.     }
  348.  
  349.     send "ptype class Bar\n"
  350.     expect {
  351.     -re "type = class Bar : public Base1, public Foo \{\r\n\[ \]*public:\r\n\[ \]*int z;\r\n\r\n\[ \]*Bar\(int, int, int\);\r\n\}\r\n$prompt $" {
  352.         incr passcount
  353.     }
  354.     -re "type = struct Bar \{\r\n\[ \]*struct Base1 Base1;\r\n\[ \]*struct Foo Foo;\r\n\[ \]*int z;\r\n\}\r\n$prompt $" {
  355.         setup_xfail "*-*-*"
  356.         fail "ptype class Bar"
  357.     }
  358.     -re ".*$prompt $" { fail "ptype class Bar" }
  359.     timeout { fail "ptype class Bar (timeout)" ; return }
  360.     }
  361.  
  362.     if $passcount then {
  363.     pass "$passcount correct ptype results for class objects"
  364.     }
  365. }
  366.  
  367. #
  368. # Test simple access to class members.
  369. #
  370.  
  371. proc test_non_inherited_member_access {} {
  372.     global prompt
  373.     
  374.     set passcount 0
  375.  
  376.     # Print non-inherited members of g_A.
  377.  
  378.     send "print g_A.a\n"
  379.     expect {
  380.     -re ".* = 1\r\n$prompt $" { incr passcount }
  381.     -re ".*$prompt $" { fail "g_A.a incorrect" }
  382.     timeout { fail "print g_A.a (timeout)" ; return }
  383.     }
  384.  
  385.     send "print g_A.x\n"
  386.     expect {
  387.     -re ".* = 2\r\n$prompt $" { incr passcount }
  388.     -re ".*$prompt $" { fail "g_A.x incorrect" }
  389.     timeout { fail "print g_A.x (timeout)" ; return }
  390.     }
  391.  
  392.     # Print non-inherited members of g_B.
  393.  
  394.     send "print g_B.b\n"
  395.     expect {
  396.     -re ".* = 5\r\n$prompt $" { incr passcount }
  397.     -re ".*$prompt $" { fail "g_B.b incorrect" }
  398.     timeout { fail "print g_B.b (timeout)" ; return }
  399.     }
  400.  
  401.     send "print g_B.x\n"
  402.     expect {
  403.     -re ".* = 6\r\n$prompt $" { incr passcount }
  404.     -re ".*$prompt $" { fail "g_B.x incorrect" }
  405.     timeout { fail "print g_B.x (timeout)" ; return }
  406.     }
  407.  
  408.     # Print non-inherited members of g_C.
  409.  
  410.     send "print g_C.c\n"
  411.     expect {
  412.     -re ".* = 9\r\n$prompt $" { incr passcount }
  413.     -re ".*$prompt $" { fail "g_C.c incorrect" }
  414.     timeout { fail "print g_C.c (timeout)" ; return }
  415.     }
  416.  
  417.     send "print g_C.x\n"
  418.     expect {
  419.     -re ".* = 10\r\n$prompt $" { incr passcount }
  420.     -re ".*$prompt $" { fail "g_C.x incorrect" }
  421.     timeout { fail "print g_C.x (timeout)" ; return }
  422.     }
  423.  
  424.     # Print non-inherited members of g_D.
  425.  
  426.     send "print g_D.d\n"
  427.     expect {
  428.     -re ".* = 19\r\n$prompt $" { incr passcount }
  429.     -re ".*$prompt $" { fail "g_D.d incorrect" }
  430.     timeout { fail "print g_D.d (timeout)" ; return }
  431.     }
  432.  
  433.     send "print g_D.x\n"
  434.     expect {
  435.     -re ".* = 20\r\n$prompt $" { incr passcount }
  436.     -re ".*$prompt $" { fail "g_D.x incorrect" }
  437.     timeout { fail "print g_D.x (timeout)" ; return }
  438.     }
  439.  
  440.     # Print non-inherited members of g_E.
  441.  
  442.     send "print g_E.e\n"
  443.     expect {
  444.     -re ".* = 31\r\n$prompt $" { incr passcount }
  445.     -re ".*$prompt $" { fail "g_E.e incorrect" }
  446.     timeout { fail "print g_E.e (timeout)" ; return }
  447.     }
  448.  
  449.     send "print g_E.x\n"
  450.     expect {
  451.     -re ".* = 32\r\n$prompt $" { incr passcount }
  452.     -re ".*$prompt $" { fail "g_E.x incorrect" }
  453.     timeout { fail "print g_E.x (timeout)" ; return }
  454.     }
  455.  
  456.     if $passcount then {
  457.     pass "$passcount correct reads of non-inherited class members"
  458.     }
  459. }
  460.  
  461. #
  462. # Try access to non-members that are members of another class.
  463. # Should give errors.
  464. #
  465.  
  466. proc test_wrong_class_members {} {
  467.     global prompt
  468.  
  469.     set passcount 0
  470.  
  471.     send "print g_A.b\n"
  472.     expect {
  473.     -re "There is no member named b.\r\n$prompt $" { incr passcount }
  474.     -re ".*$prompt $" { fail "print g_A.b should be error" }
  475.     timeout { fail "print g_A.b (timeout)" ; return }
  476.     }
  477.  
  478.     send "print g_B.c\n"
  479.     expect {
  480.     -re "There is no member named c.\r\n$prompt $" { incr passcount }
  481.     -re ".*$prompt $" { fail "print g_B.c should be error" }
  482.     timeout { fail "print g_B.c (timeout)" ; return }
  483.     }
  484.  
  485.     send "print g_B.d\n"
  486.     expect {
  487.     -re "There is no member named d.\r\n$prompt $" { incr passcount }
  488.     -re ".*$prompt $" { fail "print g_B.d should be error" }
  489.     timeout { fail "print g_B.d (timeout)" ; return }
  490.     }
  491.  
  492.     send "print g_C.b\n"
  493.     expect {
  494.     -re "There is no member named b.\r\n$prompt $" { incr passcount }
  495.     -re ".*$prompt $" { fail "print g_C.b should be error" }
  496.     timeout { fail "print g_C.b (timeout)" ; return }
  497.     }
  498.  
  499.     send "print g_C.d\n"
  500.     expect {
  501.     -re "There is no member named d.\r\n$prompt $" { incr passcount }
  502.     -re ".*$prompt $" { fail "print g_C.d should be error" }
  503.     timeout { fail "print g_C.d (timeout)" ; return }
  504.     }
  505.  
  506.     send "print g_D.e\n"
  507.     expect {
  508.     -re "There is no member named e.\r\n$prompt $" { incr passcount }
  509.     -re ".*$prompt $" { fail "print g_D.e should be error" }
  510.     timeout { fail "print g_D.e (timeout)" ; return }
  511.     }
  512.  
  513.     if $passcount then {
  514.     pass "$passcount correct errors for incorrect members"
  515.     }
  516. }
  517.  
  518. #
  519. # Try access to non-members that are not members of any class.
  520. # Should give errors.
  521. #
  522.  
  523. proc test_nonexistant_members {} {
  524.     global prompt
  525.  
  526.     set passcount 0
  527.  
  528.     send "print g_A.y\n"
  529.     expect {
  530.     -re "There is no member named y.\r\n$prompt $" { incr passcount }
  531.     -re ".*$prompt $" { fail "print g_A.y should be error" }
  532.     timeout { fail "print g_A.y (timeout)" ; return }
  533.     }
  534.  
  535.     send "print g_B.z\n"
  536.     expect {
  537.     -re "There is no member named z.\r\n$prompt $" { incr passcount }
  538.     -re ".*$prompt $" { fail "print g_B.z should be error" }
  539.     timeout { fail "print g_B.z (timeout)" ; return }
  540.     }
  541.  
  542.     send "print g_C.q\n"
  543.     expect {
  544.     -re "There is no member named q.\r\n$prompt $" { incr passcount }
  545.     -re ".*$prompt $" { fail "print g_C.q should be error" }
  546.     timeout { fail "print g_C.q (timeout)" ; return }
  547.     }
  548.  
  549.     send "print g_D.p\n"
  550.     expect {
  551.     -re "There is no member named p.\r\n$prompt $" { incr passcount }
  552.     -re ".*$prompt $" { fail "print g_D.p should be error" }
  553.     timeout { fail "print g_D.p (timeout)" ; return }
  554.     }
  555.  
  556.     if $passcount then {
  557.     pass "$passcount correct errors for nonexistant members"
  558.     }
  559. }
  560.  
  561. #
  562. # Pointers to class members
  563. #
  564.  
  565. proc test_pointers_to_class_members {} {
  566.     global prompt
  567.     global decimal
  568.  
  569.     set passcount 0
  570.  
  571.     send "print Bar::z\n"
  572.     expect {
  573.     -re ".* = \(int\[ \]*\(\[ \]*Bar::&\)\)\[ \]*Bar::z\r\n$prompt $" {
  574.         incr passcount
  575.     }
  576.     -re ".*$prompt $" { fail "print Bar::z" }
  577.     timeout { fail "print Bar::z (timeout)" ; return }
  578.     }
  579.  
  580.     send "print &Foo::x\n"
  581.     expect {
  582.     -re ".* = \(int\[ \]*\(\[ \]*Foo::\*\)\)\[ \]*&Foo::x\r\n$prompt $" {
  583.         incr passcount
  584.     }
  585.     -re ".*$prompt $" { fail "print &Foo::x" }
  586.     timeout { fail "print &Foo::x (timeout)" ; return }
  587.     }
  588.  
  589.     send "print (int)&Foo::x\n"
  590.     expect {
  591.     -re ".* = 0\r\n$prompt $" {
  592.         incr passcount
  593.     }
  594.     -re ".*$prompt $" { fail "print (int)&Foo::x" }
  595.     timeout { fail "print (int)&Foo::x (timeout)" ; return}
  596.     }
  597.  
  598.     send "print (int)&Bar::y == 2*sizeof(int)\n"
  599.     expect {
  600.     -re ".* = 1\r\n$prompt $" {
  601.         incr passcount
  602.     }
  603.     -re "There is no field named y.*$prompt $" {
  604.         setup_xfail "*-*-*"
  605.         fail "print (int)&Bar::y == 2*sizeof(int)"
  606.     }
  607.     -re ".*$prompt $" { fail "print (int)&Bar::y == 2*sizeof(int)" }
  608.     timeout { fail "print (int)&Bar::y == 2*sizeof(int) (timeout)" ; return }
  609.     }
  610.  
  611.     send "next\n"
  612.     expect {
  613.     -re "$decimal\[ \t\]+inheritance3 \(\);\r\n$prompt $" {}
  614.     -re ".*$prompt $" { fail "next to inheritance3" ; return }
  615.     }
  616.  
  617.     send "print (int)pmi == sizeof(int)\n"
  618.     expect {
  619.     -re ".* = 0\r\n$prompt $" {
  620.         incr passcount
  621.     }
  622.     -re ".*$prompt $" { fail "print (int)pmi == sizeof(int)" }
  623.     timeout { fail "print (int)pmi == sizeof(int) (timeout)" ; return }
  624.     }
  625.  
  626.     if $passcount then {
  627.     pass "$passcount correct results using pointers to class members"
  628.     }
  629. }
  630.  
  631. #
  632. # Test static members.
  633. #
  634.  
  635. proc test_static_members {} {
  636.     global prompt
  637.     global hex
  638.  
  639.     set passcount 0
  640.  
  641.     send "print Foo::st\n"
  642.     expect {
  643.     -re ".* = 100\r\n$prompt $" {
  644.         incr passcount
  645.     }
  646.     -re "There is no field named st.*$prompt $" {
  647.         setup_xfail "*-*-*"
  648.         fail "print Foo::st"
  649.     }
  650.     -re ".*$prompt $" { fail "print Foo::st" }
  651.        timeout { fail "print Foo::st (timeout)" ; return }
  652.     }
  653.  
  654.     send "set foo.st = 200\n"
  655.     expect {
  656.     -re ".*$prompt $" {}
  657.     }
  658.  
  659.     send "print bar.st\n"
  660.     expect {
  661.     -re ".* = 200\r\n$prompt $" {
  662.         incr passcount
  663.     }
  664.     -re "There is no member named st.*$prompt $" {
  665.         setup_xfail "*-*-*"
  666.         fail "print bar.st"
  667.     }
  668.     -re ".*$prompt $" { fail "print bar.st" }
  669.        timeout { fail "print bar.st (timeout)" ; return }
  670.     }
  671.  
  672.     send "print &foo.st\n"
  673.     expect {
  674.     -re ".* = \(int \*\) $hex\r\n$prompt $" {
  675.         incr passcount
  676.     }
  677.     -re "There is no member named st.*$prompt $" {
  678.         setup_xfail "*-*-*"
  679.         fail "print &foo.st"
  680.     }
  681.     -re ".*$prompt $" { fail "print &foo.st" }
  682.        timeout { fail "print &foo.st (timeout)" ; return }
  683.     }
  684.  
  685.     set got_bar_st 0
  686.     send "print &Bar::st\n"
  687.     expect {
  688.     -re ".* = \(int \*\) $hex\r\n$prompt $" {
  689.         incr passcount
  690.         set got_bar_st 1
  691.     }
  692.     -re "There is no field named st.*$prompt $" {
  693.         setup_xfail "*-*-*"
  694.         fail "print &Bar::st"
  695.     }
  696.     -re ".*$prompt $" { fail "print &Bar::st" }
  697.        timeout { fail "print &Bar::st (timeout)" ; return }
  698.     }
  699.  
  700.     if $got_bar_st then {
  701.     send "print *\$\n"
  702.     expect {
  703.         -re ".* = 200\r\n$prompt $" {
  704.         incr passcount
  705.         }
  706.         -re ".*$prompt $" { fail "print *\$" }
  707.            timeout { fail "print *\$ (timeout)" ; return }
  708.     }
  709.     }
  710.  
  711.     if $passcount then {
  712.     pass "$passcount correct tests of static class members"
  713.     }
  714. }
  715.  
  716. proc do_tests {} {
  717.     global prms_id
  718.     global bug_id
  719.     global subdir
  720.     global objdir
  721.     global srcdir
  722.     global binfile
  723.     global prompt
  724.  
  725.     set prms_id 0
  726.     set bug_id 0
  727.  
  728.     # Start with a fresh gdb.
  729.  
  730.     gdb_exit
  731.     gdb_start
  732.     gdb_reinitialize_dir $srcdir/$subdir
  733.     gdb_load $objdir/$subdir/$binfile
  734.  
  735.     send "set language c++\n"
  736.     expect -re "$prompt $"
  737.     send "set width 0\n"
  738.     expect -re "$prompt $"
  739.  
  740.     test_ptype_class_objects
  741.  
  742.     if [ runto 'inheritance2(void)' ] then {
  743.     test_non_inherited_member_access
  744.     test_wrong_class_members
  745.     test_nonexistant_members
  746.     }
  747.  
  748.     if [istarget "a29k-*-udi"] then {
  749.     # FIXME: If PR 2415 is fixed, this is not needed.
  750.     gdb_target_udi
  751.     gdb_load $objdir/$subdir/$binfile
  752.     }
  753.  
  754.     if [ runto main ] then {
  755.     test_pointers_to_class_members
  756.     test_static_members
  757.     }
  758.  
  759.     if [istarget "a29k-*-udi"] then {
  760.     # FIXME: If PR 2415 is fixed, this is not needed.
  761.     gdb_target_udi
  762.     }
  763. }
  764.  
  765. # Check to see if we have an executable to test.  If not, then either we
  766. # haven't tried to compile one, or the compilation failed for some reason.
  767. # In either case, just notify the user and skip the tests in this file.
  768.  
  769. set binfile "gdbme"
  770. set srcfile $binfile.cc
  771.  
  772. if ![file exists $objdir/$subdir/$binfile] then {
  773.     warning "$binfile does not exist; tests suppressed."
  774. } else {
  775.     do_tests
  776. }
  777.