5 # ----- Object creation -----
7 # Print out the value of some enums
10 print " BLUE =" . BLUE;
11 print " GREEN =" . GREEN;
13 print "\n*** Foo::speed ***";
14 print " Foo_IMPULSE =" . Foo_IMPULSE;
15 print " Foo_WARP =" . Foo_WARP;
16 print " Foo_LUDICROUS =" . Foo_LUDICROUS;
18 print "\nTesting use of enums with functions\n";
20 enum_test(RED, Foo_IMPULSE);
21 enum_test(BLUE, Foo_WARP);
22 enum_test(GREEN, Foo_LUDICROUS);
25 print "\nTesting use of enum with class method\n";
28 Foo_enum_test($f,Foo_IMPULSE);
29 Foo_enum_test($f,Foo_WARP);
30 Foo_enum_test($f,Foo_LUDICROUS);