summaryrefslogtreecommitdiff
path: root/t/29-app-raps2.t
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-07-04 12:40:55 +0200
committerDaniel Friesel <derf@finalrewind.org>2011-07-04 12:40:55 +0200
commitdc9f255ebfe2aa022264f4c2a53f80a98f392122 (patch)
treee7330871cb774b7b335aff244853ff9f5e2db4ee /t/29-app-raps2.t
parentbe72cdb6136ff611f35e8ee2d83cfc2a7c0b2f22 (diff)
Prepare for more advanced App::Raps2 tests
Diffstat (limited to 't/29-app-raps2.t')
-rw-r--r--t/29-app-raps2.t30
1 files changed, 0 insertions, 30 deletions
diff --git a/t/29-app-raps2.t b/t/29-app-raps2.t
deleted file mode 100644
index 53aa51d..0000000
--- a/t/29-app-raps2.t
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.010;
-
-use Test::More;
-
-eval "use Test::MockObject";
-plan skip_all => 'Test::MockObject required' if $@;
-
-plan tests => 4;
-
-my $mock = Test::MockObject->new();
-$mock->fake_module(
- 'Term::ReadLine',
- new => sub { return bless({}, $_[0]) },
-);
-
-use_ok('App::Raps2');
-
-my $r2 = App::Raps2->new( dont_touch_fs => 1 );
-isa_ok($r2, 'App::Raps2');
-
-isa_ok($r2->ui(), 'App::Raps2::UI');
-
-is_deeply(
- $r2->file_to_hash('t/in/hash'),
- { key => 'value', otherkey => 'othervalue' },
- 'file_to_hash works',
-);