From: Yuval Kogman <nothingmuch@woobling.org>
Date: Wed, 19 Jul 2006 10:05:57 +0000 (+0000)
Subject: zap bad test
X-Git-Tag: v0.06~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3759f39ae7f2c9e1b9459a6bd0b547e9063b8bb7;p=catagits%2FCatalyst-Plugin-Session.git

zap bad test
---

diff --git a/t/04_sessionid_stomp.t b/t/04_sessionid_stomp.t
deleted file mode 100644
index 1f5b41b..0000000
--- a/t/04_sessionid_stomp.t
+++ /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");