Update of /cvsroot/openvrml/openvrml/tests
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv21592/tests
Modified Files:
Tag: OpenVRML-0_16-BRANCH
testsuite.at
Log Message:
Added tests to ensure PROTOs in default field values of PROTOs are parsed correctly.
Index: testsuite.at
===================================================================
RCS file: /cvsroot/openvrml/openvrml/tests/testsuite.at,v
retrieving revision 1.15
retrieving revision 1.15.2.1
diff -C2 -d -r1.15 -r1.15.2.1
*** testsuite.at 17 Apr 2006 07:31:00 -0000 1.15
--- testsuite.at 17 Nov 2006 20:28:32 -0000 1.15.2.1
***************
*** 74,77 ****
--- 74,109 ----
AT_CLEANUP
+ AT_SETUP([DEF/USE in a PROTO field default value])
+ AT_DATA([def-use-in-proto-default-value.wrl],
+ [[#VRML V2.0 utf8
+ PROTO Node [
+ field MFNode val [ Group { children [ DEF G Group {} ] },
+ Group { children [ USE G ] } ]
+ ] {
+ Group {}
+ }
+ Node {}
+ ]])
+ AT_CHECK([parse-vrml97 < def-use-in-proto-default-value.wrl])
+ AT_CLEANUP
+
+ AT_SETUP([PROTO in a PROTO field default value])
+ AT_DATA([proto-in-proto-default-value.wrl],
+ [[#VRML V2.0 utf8
+ PROTO Node [
+ field MFNode val [
+ Group {
+ PROTO Local [] { Group {} }
+ children [ Local {} ]
+ }
+ ]
+ ] {
+ Group { children IS val }
+ }
+ Node {}
+ ]])
+ AT_CHECK([parse-vrml97 < proto-in-proto-default-value.wrl])
+ AT_CLEANUP
+
AT_SETUP([Self-referential Script node])
AT_DATA([self-referential-script.wrl],
***************
*** 168,171 ****
--- 200,219 ----
AT_CLEANUP
+ AT_SETUP([USE a node DEFined in a different PROTO field default value])
+ AT_DATA([use-def-in-different-proto-default-value.wrl],
+ [[#VRML V2.0 utf8
+ PROTO Node [
+ field SFNode val0 Group { children [ DEF G Group {} ] }
+ field SFNode val1 Group { children [ USE G ] }
+ ] {
+ Group {}
+ }
+ Node {}
+ ]])
+ AT_CHECK([parse-vrml97 < use-def-in-different-proto-default-value.wrl], [1], [],
+ [urn:X-openvrml:stream:1:4:45: error: node "G" has not been defined in this scope
+ ])
+ AT_CLEANUP
+
AT_BANNER([X3D VRML parse tests: code that should be accepted])
|
