[svn:parrot] r35639 - trunk/languages/pipp/t/php

Author: bernhard
Date: Fri Jan 16 10:19:07 2009
New Revision: 35639

Modified:
   trunk/languages/pipp/t/php/oo.t

Log:
[Pipp] Add TODO test, const in class not named Foo.

Modified: trunk/languages/pipp/t/php/oo.t
==============================================================================
--- trunk/languages/pipp/t/php/oo.t	(original)
+++ trunk/languages/pipp/t/php/oo.t	Fri Jan 16 10:19:07 2009
@@ -20,7 +20,7 @@
 use FindBin;
 use lib "$FindBin::Bin/../../../../lib", "$FindBin::Bin/../../lib";
 
-use Parrot::Test tests => 12;
+use Parrot::Test tests => 13;
 
 language_output_is( 'Pipp', <<'CODE', <<'OUT', 'definition of a class' );
 <?php
@@ -39,7 +39,7 @@
 After class definition.
 OUT
 
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'class constant' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'class constant in Foo' );
 <?php
 
 class Foo {
@@ -54,6 +54,21 @@
 constant bar in class Foo
 OUT
 
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'class constant in Bar', todo => 'Foo is hardwired' );
+<?php
+
+class Bar {
+
+    const bar = "constant bar in class Bar\n";
+}
+
+echo Bar::bar;
+
+?>
+CODE
+constant bar in class Foo
+OUT
+
 language_output_is( 'Pipp', <<'CODE', <<'OUT', 'calling an instance method' );
 <?php