zap bad test
Yuval Kogman [Wed, 19 Jul 2006 10:05:57 +0000 (10:05 +0000)]
t/04_sessionid_stomp.t [deleted file]

diff --git a/t/04_sessionid_stomp.t b/t/04_sessionid_stomp.t
deleted file mode 100644 (file)
index 1f5b41b..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 4;
-use Test::MockObject::Extends;
-use Test::Exception;
-
-my $m;
-BEGIN { use_ok( $m = "Catalyst::Plugin::Session" ) }
-
-my $c = Test::MockObject::Extends->new($m);
-
-my $flash = {};
-$c->mock(
-    get_session_data => sub {
-        my ( $c, $key ) = @_;
-        return $key =~ /expire/ ? time() + 1000 : $flash;
-    }
-);
-$c->set_true("store_session_data");
-#$c->set_always( _sessionid => "deadbeef" );
-$c->set_always( config     => { session => { expires => 1000 } } );
-$c->set_always( stash      => {} );
-$c->set_always( log => my $log = Test::MockObject->new );
-$log->set_true( "warn" );
-
-$c->sessionid('deadbeef');
-is_deeply($c->sessionid(), 'deadbeef', "Session not set properly.");
-
-$log->clear;
-
-$c->sessionid('deadbeef2');
-is_deeply($c->sessionid(), 'deadbeef', "Session was not stomped!.");
-
-$log->called_ok("warn");