Diff of /test/trunk/ooRexx/base/directives/CONSTANT.testGroup [r8522] .. [r8523] Maximize Restore

  Switch to unified view

a/test/trunk/ooRexx/base/directives/CONSTANT.testGroup b/test/trunk/ooRexx/base/directives/CONSTANT.testGroup
1
#!/usr/bin/rexx
1
#!/usr/bin/rexx
2
/*
2
/*
3
  SVN Revision: $Rev: 3371 $
3
  SVN Revision: $Rev: 8523 $
4
  Change Date:  $Date: 2008-09-21 04:33:29 +0000 (Sun, 21 Sep 2008) $
4
  Change Date:  $Date: 2012-10-20 18:49:49 +0000 (Sat, 20 Oct 2012) $
5
*/
5
*/
6
/*----------------------------------------------------------------------------*/
6
/*----------------------------------------------------------------------------*/
7
/*                                                                            */
7
/*                                                                            */
8
/* Copyright (c) 2007-2008 Rexx Language Association. All rights reserved.    */
8
/* Copyright (c) 2007-2008 Rexx Language Association. All rights reserved.    */
9
/*                                                                            */
9
/*                                                                            */
...
...
252
  src[5] = "::constant ZERO 0.0"
252
  src[5] = "::constant ZERO 0.0"
253
  src[6] = "::constant MAX_DOGS_PER_HOUSEHOLD 6"
253
  src[6] = "::constant MAX_DOGS_PER_HOUSEHOLD 6"
254
  src[7] = "  return 14"
254
  src[7] = "  return 14"
255
  src[8] = "::constant MAX_CATS_PER_HOUSEHOLD 0"
255
  src[8] = "::constant MAX_CATS_PER_HOUSEHOLD 0"
256
256
257
  self~expectSyntax(99.916)
257
  self~expectSyntax(99.938)
258
  p = .Package~new("constant_TestGroup", src)
258
  p = .Package~new("constant_TestGroup", src)
259
259
260
::method  test_code_after_directive_floating_method
260
::method  test_code_after_directive_floating_method
261
  src = .array~new
261
  src = .array~new
262
262
...
...
267
  src[5] = ""
267
  src[5] = ""
268
  src[6] = "::class 'TestClass'"
268
  src[6] = "::class 'TestClass'"
269
  src[7] = "::constant PI 3.14195"
269
  src[7] = "::constant PI 3.14195"
270
  src[8] = "::constant ZERO 0.0"
270
  src[8] = "::constant ZERO 0.0"
271
271
272
  self~expectSyntax(99.916)
272
  self~expectSyntax(99.938)
273
  p = .Package~new("constant_TestGroup", src)
273
  p = .Package~new("constant_TestGroup", src)
274
274
275
::method  test_extra_values
275
::method  test_extra_values
276
  src = .array~new
276
  src = .array~new
277
277