From bab6c4f5a20428975a4ed12234eeee3ce414e7d2 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 5 Apr 2011 23:23:19 -0500
Subject: todo test for refreshing based on metaclass reloads

---
 t/moose-metaclasses.t | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 t/moose-metaclasses.t

(limited to 't/moose-metaclasses.t')

diff --git a/t/moose-metaclasses.t b/t/moose-metaclasses.t
new file mode 100644
index 0000000..28a0777
--- /dev/null
+++ b/t/moose-metaclasses.t
@@ -0,0 +1,55 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Requires 'Moose';
+use Test::Moose;
+use lib 't/lib';
+use Test::Class::Refresh;
+
+use Class::Refresh;
+
+my $dir = prepare_temp_dir_for('moose-metaclasses');
+push @INC, $dir->dirname;
+
+our %reloaded;
+
+require Foo;
+require Bar;
+
+Class::Refresh->refresh;
+
+my $metaclass = Scalar::Util::blessed(Foo->meta);
+
+does_ok(Foo->meta, 'Foo::Meta::Class');
+ok(!Moose::Util::does_role(Bar->meta, 'Foo::Meta::Class'),
+   "!Bar->meta->does('Foo::Meta::Class')");
+ok(Foo->meta->meta->find_attribute_by_name('meta_attr'),
+   "has meta attribute");
+ok(!Foo->meta->meta->find_attribute_by_name('meta_attr2'),
+   "doesn't have other meta attribute");
+is_deeply(\%reloaded,
+          { foo => 1, foo_meta_class => 1, bar => 1 },
+          "everything loaded");
+
+
+sleep 2;
+update_temp_dir_for('moose-metaclasses', $dir);
+
+Class::Refresh->refresh;
+
+does_ok(Foo->meta, 'Foo::Meta::Class');
+ok(!Moose::Util::does_role(Bar->meta, 'Foo::Meta::Class'),
+   "!Bar->meta->does('Foo::Meta::Class')");
+{ local $TODO = "moose needs a way to clear out its anon class cache";
+ok(!Foo->meta->meta->find_attribute_by_name('meta_attr'),
+   "doesn't have meta attribute");
+ok(Foo->meta->meta->find_attribute_by_name('meta_attr2'),
+   "has other meta attribute");
+isnt(Scalar::Util::blessed(Foo->meta), $metaclass, "Foo got a new metaclass");
+}
+is_deeply(\%reloaded,
+          { foo => 2, foo_meta_class => 2, bar => 1 },
+          "everything loaded");
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf