[Openinteract-commits] CVS: OpenInteract2/t action.t,1.16,1.17

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12503/t

Modified Files:
	action.t 
Log Message:
OIN-47: expose an Action's package by a property (it's always been set in the action table at server startup)

Index: action.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/action.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** action.t	25 Sep 2004 17:27:55 -0000	1.16
--- action.t	27 Sep 2004 05:01:57 -0000	1.17
***************
*** 7,11 ****
  require 'utils.pl';
  use SPOPS::Secure qw( :level );
! use Test::More  tests => 72;
  
  require_ok( 'OpenInteract2::Action' );
--- 7,11 ----
  require 'utils.pl';
  use SPOPS::Secure qw( :level );
! use Test::More  tests => 74;
  
  require_ok( 'OpenInteract2::Action' );
***************
*** 124,127 ****
--- 124,128 ----
          username => 'mario',
          city     => 'Pittsburgh',
+         package_name => 'mypackage',
          cache_expire => { foo => '10m' }
      } )
***************
*** 130,133 ****
--- 131,136 ----
  is( ref $empty_p, 'OpenInteract2::Action',
      '...of the right class' );
+ is( $empty_p->package_name, 'mypackage',
+     '...got property "package_name"' );
  is( $empty_p->task, 'foo',
      '...got property "task"' );
***************
*** 154,157 ****
--- 157,162 ----
  is( ref $named, 'OpenInteract2::Action::Page',
      '...of the right class' );
+ is( $named->package_name, 'base_page',
+     '...of the right package' );
  is( $named->is_secure, 1,
      '...is_secure property set' );