home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / program / funnel.zoo / tests / pr09.fw < prev    next >
Text File  |  1993-04-11  |  2KB  |  93 lines
  1. PR09: Test calls and actual parameter lists.
  2.  
  3. First trip up the parser so we don't get any further.
  4. @>
  5.  
  6. Now define some macros to call. No error.
  7.  
  8. @$@<Zero@>@{@}
  9. @$@<One@>@(@1@)@{@}
  10. @$@<Two@>@(@2@)@{@}
  11. @$@<Three@>@(@3@)@{@}
  12. @$@<Nine@>@(@9@)@{@}
  13. @$@#"@{@}
  14.  
  15. The following test calls should NOT generate any errors.
  16.  
  17. @$@<Macro containing the test macro calls.@>==@{
  18. 1. Test macro call with no parameter list.
  19. @<Zero@>
  20.  
  21. 2. Test macro call with quick name.
  22. @#"
  23.  
  24. 3. Test macro call with one parameter.
  25. @<One@>@(Toucan@)
  26.  
  27. 4. Test macro call with many parameters.
  28. @<Two@>@(Toucan@,Teapot@)
  29. @<Three@>@(Toucan@,Teapot@,Walrus@)
  30. @<Nine@>@(Toucan@,Teapot@,Walrus@,
  31.           Toucan@,Teapot@,Walrus@,
  32.           Toucan@,Teapot@,Walrus@)
  33.  
  34. 5. Test macro calls with double quotes on parameters.
  35. @<One@>@( @"Toucan@"@)
  36. @<Two@>@(@"Toucan@"   @,   @"Teapot@"@)
  37. @<Three@>@(@"Toucan@" @,
  38.            @"Teapot@" @,
  39.            @"Walrus@" @)
  40. @<Nine@>@( @"Toucan@" @, @"Teapot@" @, @"Walrus@" @,
  41.            @"Toucan@" @, @"Teapot@" @, @"Walrus@" @,
  42.            @"Toucan@" @, @"Teapot@" @, @"Walrus@" @)
  43.  
  44. 7. Test macro calls with mixed double quotes on parameters.
  45. @<Two@>@(@"Toucan@"   @,Teapot@)
  46. @<Three@>@(@"Toucan@" @,
  47.            @"Teapot@" @,Walrus@)
  48. @<Nine@>@( @"Toucan@" @, @"Teapot@" @,   Walrus   @,
  49.            @"Toucan@" @,   Teapot   @, @"Walrus@" @,
  50.            @"Toucan@" @, @"Teapot@" @, @"Walrus@" @)
  51.  
  52. @} @! End of macro definition enclosing all these legal tests.
  53.  
  54. 8. Test macro calls with a variety of syntax errors in parameter list.
  55. @$@<Error1@>@{
  56. @<Zero@>@(
  57. @}
  58. @A@<Error recovery point@>
  59.  
  60. @$@<Error2@>@{
  61. @<Zero@>@)
  62. @}
  63. @A@<Error recovery point@>
  64.  
  65. @$@<Error3@>@{
  66. @<One@>@(@"Toucan@)
  67. @}
  68. @A@<Error recovery point@>
  69.  
  70. @$@<Error4@>@{
  71. @<One@>@(@"Toucan@"@"Sloth@"@)
  72. @}
  73. @A@<Error recovery point@>
  74.  
  75. @$@<Error5@>@{
  76. @<Two@>@(@"Toucan@"Teapot@)
  77. @}
  78. @A@<Error recovery point@>
  79.  
  80. @$@<Error6@>@{
  81. @<Two@>@(@"Toucan@"Teapot
  82. @}
  83. @A@<Error recovery point@>
  84.  
  85. @$@<Error7@>@{
  86. @<Two@>@(@"Toucan@"Teapot
  87. @<Three@>@(Toucan@,
  88.            @"Teapot@,Walrus
  89.  
  90. @}
  91. @A@<Error recovery point@>
  92.  
  93.