Menu
▾
▴
[Everydevel-opers] SF.net SVN: everydevel: [910] trunk/ebase
|
From: <pau...@us...> - 2006-09-22 11:28:17
|
Revision: 910
http://svn.sourceforge.net/everydevel/?rev=910&view=rev
Author: paul_the_nomad
Date: 2006-09-22 04:28:01 -0700 (Fri, 22 Sep 2006)
Log Message:
-----------
Move Auth.t tests to unit tests for Auth.pm
Modified Paths:
--------------
trunk/ebase/t/Everything/Auth.t
Added Paths:
-----------
trunk/ebase/lib/Everything/Test/Auth.pm
Added: trunk/ebase/lib/Everything/Test/Auth.pm
===================================================================
--- trunk/ebase/lib/Everything/Test/Auth.pm (rev 0)
+++ trunk/ebase/lib/Everything/Test/Auth.pm 2006-09-22 11:28:01 UTC (rev 910)
@@ -0,0 +1,136 @@
+package Everything::Test::Auth;
+
+use base 'Everything::Test';
+use Test::More;
+use Test::Exception;
+use Test::MockObject;
+use File::Spec;
+use File::Path;
+use SUPER;
+use strict;
+
+sub startup : Test( startup => +5 ) {
+ my $self = shift;
+ $self->SUPER;
+ can_ok( $self->{class}, 'new' );
+
+ my $db = Test::MockObject->new();
+ local *Everything::Auth::DB;
+ *Everything::Auth::DB = \$db;
+ $db->set_always( getNode => { node_id => 88 } );
+ $self->{db} = $db;
+ my $instance = $self->{class}->new();
+ isa_ok( $instance, $self->{class} );
+ $self->{instance} = $instance;
+
+ ok(
+ exists $INC{'Everything/Auth/EveryAuth.pm'},
+ 'new() should load default auth plugin by default'
+ );
+ isa_ok( $instance->{plugin}, 'Everything::Auth::EveryAuth' );
+ is( $instance->{options}{guest_user},
+ 88, '... setting guest user id from database' );
+
+ $self->{options} = { guest_user => 77, Auth => 'Plugin' };
+
+}
+
+sub test_load_module : Test(2) {
+
+ my $self = shift;
+ my $success;
+ my $options = $self->{options};
+ my $package = $self->{class};
+ my $path = File::Spec->catdir(qw( lib Everything Auth ));
+ my $mod;
+ if ( -d $path or mkpath $path) {
+ $mod = File::Spec->catfile( $path, 'Plugin.pm' );
+ if ( open( OUT, ">$mod" ) ) {
+ print OUT "package Everything::Auth::Plugin;\n"
+ . 'sub new { bless {}, $_[0] }'
+ . "\n1;\n";
+
+ $success = close OUT;
+ }
+ }
+
+ return ( "Cannot open fake auth package", 2 ) unless $success;
+ $options->{Auth} = 'Plugin';
+ my $result = $package->new($options);
+ isa_ok( $result->{plugin}, 'Everything::Auth::Plugin' );
+ is( $result->{options}, $options, '... setting options to passed-in opts' );
+
+ unlink $mod;
+
+}
+
+sub test_load_fake_module : Test(1) {
+ my $self = shift;
+ my $options = $self->{options};
+
+ $options->{Auth} = 'Fake';
+ throws_ok { $self->{class}->new($options) } qr/No authentication plugin/,
+ '... should die if it finds no auth plugin';
+
+}
+
+sub test_exported_subs : Test(18) {
+
+ my $self = shift;
+ my $package = $self->{class};
+
+ for my $export (qw( loginUser logoutUser authUser )) {
+ can_ok( $package, $export );
+ my $mock = Test::MockObject->new();
+ $mock->set_always( $export => 'user' )
+ ->set_always( generateSession => 'generated' );
+
+ $mock->{plugin} = $mock;
+
+ my $sub = __PACKAGE__->can($export);
+
+ my $result = $sub->( $mock, 'args', 'args' );
+
+ my ( $method, $args ) = $mock->next_call();
+ is( $method, $export, "$export() should delegate to plugin" );
+ is_deeply( $args, [ $mock, qw( args args ) ], '... passing all args' );
+
+ ( $method, $args ) = $mock->next_call();
+ is( $method, 'generateSession', '... generating a session' );
+ is( $args->[1], 'user', '... for the user' );
+ is( $result, 'generated', '... returning the results' );
+ }
+
+}
+
+sub test_generate_session : Test(5) {
+
+ my $self = shift;
+ my $package = $self->{class};
+ my $db = $self->{db};
+ local *Everything::Auth::DB;
+ *Everything::Auth::DB = \$db;
+
+ can_ok( $package, 'generateSession' );
+ my $mock = Test::MockObject->new();
+ $mock->{options} = { guest_user => 'guest' };
+ $mock->set_always( getVars => 'vars' );
+
+ $db->set_false('getNode')->clear();
+
+ throws_ok { Everything::Auth::generateSession($mock) }
+ qr/Unable to get user!/, 'generateSession() should die with no user';
+ my ( $method, $args ) = $db->next_call();
+ is( $method, 'getNode', '... so should fetch a user given none' );
+ is( $args->[1], 'guest', '... using guest user option' );
+
+ my @results = Everything::Auth::generateSession( $mock, $mock );
+ is_deeply(
+ \@results,
+ [ $mock, 'vars' ],
+ '... returning user and user vars'
+ );
+
+}
+
+1;
Property changes on: trunk/ebase/lib/Everything/Test/Auth.pm
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:eol-style
+ native
Modified: trunk/ebase/t/Everything/Auth.t
===================================================================
--- trunk/ebase/t/Everything/Auth.t 2006-09-13 15:27:09 UTC (rev 909)
+++ trunk/ebase/t/Everything/Auth.t 2006-09-22 11:28:01 UTC (rev 910)
@@ -1,98 +1,31 @@
#!/usr/bin/perl -w
-BEGIN
-{
- chdir 't' if -d 't';
- unshift @INC, '../lib', '../blib/lib', 'lib';
-}
+use Everything::Test::Auth;
-use strict;
-use File::Path;
-use File::Spec;
+Everything::Test::Auth->runtests;
-use Test::More tests => 32;
+__END__
-use Test::Exception;
-use Test::MockObject;
-my $package = 'Everything::Auth';
+# BEGIN
+# {
+# chdir 't' if -d 't';
+# unshift @INC, '../lib', '../blib/lib', 'lib';
+# }
-use_ok($package) or die;
+# use strict;
+# use File::Path;
+# use File::Spec;
-my ( $result, $method, $args, @le );
+# use Test::More tests => 32;
-can_ok( $package, 'new' );
-my $db = Test::MockObject->new();
-local *Everything::Auth::DB;
-*Everything::Auth::DB = \$db;
-$db->set_always( getNode => { node_id => 88 } );
+# use Test::Exception;
+# use Test::MockObject;
-$result = $package->new();
-isa_ok( $result, $package );
-ok(
- exists $INC{'Everything/Auth/EveryAuth.pm'},
- 'new() should load default auth plugin by default'
-);
-isa_ok( $result->{plugin}, 'Everything::Auth::EveryAuth' );
-is( $result->{options}{guest_user},
- 88, '... setting guest user id from database' );
+my ( $result, $method, $args, @le );
-my $options = { guest_user => 77, Auth => 'Plugin' };
-SKIP:
-{
- my $success;
- my $path = File::Spec->catdir(qw( lib Everything Auth ));
-
- if ( -d $path or mkpath $path)
- {
- my $mod = File::Spec->catfile( $path, 'Plugin.pm' );
- if ( open( OUT, ">$mod" ) )
- {
- print OUT "package Everything::Auth::Plugin;\n"
- . 'sub new { bless {}, $_[0] }'
- . "\n1;\n";
-
- $success = close OUT;
- }
- }
-
- skip( "Cannot open fake auth package", 2 ) unless $success;
-
- $result = $package->new($options);
- isa_ok( $result->{plugin}, 'Everything::Auth::Plugin' );
- is( $result->{options}, $options, '... setting options to passed-in opts' );
-
- rmtree $path;
-}
-
-$options->{Auth} = 'Fake';
-throws_ok { $package->new($options) } qr/No authentication plugin/,
- '... should die if it finds no auth plugin';
-
-for my $export (qw( loginUser logoutUser authUser ))
-{
- can_ok( $package, $export );
- my $mock = Test::MockObject->new();
- $mock->set_always( $export => 'user' )
- ->set_always( generateSession => 'generated' );
-
- $mock->{plugin} = $mock;
-
- my $sub = main->can($export);
- $result = $sub->( $mock, 'args', 'args' );
-
- ( $method, $args ) = $mock->next_call();
- is( $method, $export, "$export() should delegate to plugin" );
- is_deeply( $args, [ $mock, qw( args args ) ], '... passing all args' );
-
- ( $method, $args ) = $mock->next_call();
- is( $method, 'generateSession', '... generating a session' );
- is( $args->[1], 'user', '... for the user' );
- is( $result, 'generated', '... returning the results' );
-}
-
can_ok( $package, 'generateSession' );
my $mock = Test::MockObject->new();
$mock->{options} = { guest_user => 'guest' };
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
