From aac3b20f3546338a8bcda64d5e4a758673734b87 Mon Sep 17 00:00:00 2001
From: Michael Reddick <michael.reddick@gmail.com>
Date: Thu, 20 Jun 2013 15:20:41 -0500
Subject: Test case for compile error

---
 t/compile-error.t | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 t/compile-error.t

(limited to 't/compile-error.t')

diff --git a/t/compile-error.t b/t/compile-error.t
new file mode 100644
index 0000000..afc06a6
--- /dev/null
+++ b/t/compile-error.t
@@ -0,0 +1,43 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Exception;
+use Test::Requires 'Moose';
+use lib 't/lib';
+use Test::Class::Refresh;
+use Try::Tiny;
+
+use Class::Refresh;
+
+my $dir = prepare_temp_dir_for('compile-error');
+push @INC, $dir->dirname;
+
+require Foo;
+
+Class::Refresh->refresh;
+
+my $foo = Foo->new;
+lives_ok { $foo->meth } '$foo->meth works';
+
+
+sleep 2;
+update_temp_dir_for('compile-error', $dir, 'middle');
+
+try {
+Class::Refresh->refresh;
+};
+
+dies_ok { $foo->meth } '$foo->meth doesnt work now';
+
+sleep 2;
+update_temp_dir_for('compile-error', $dir, 'after');
+
+try {
+Class::Refresh->refresh;
+};
+
+lives_ok { $foo->meth } '$foo->meth works again';
+
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf