remove cookbook tests (will be replaced with inline tests)

[gitmo/Moose.git] / t / 000_recipes / meta / 003_attribute_trait.t

diff --git a/t/000_recipes/meta/003_attribute_trait.t b/t/000_recipes/meta/003_attribute_trait.t
deleted file mode 100644 (file)
index 7b8157f..0000000
--- a/t/000_recipes/meta/003_attribute_trait.t
+++ /dev/null
@@ -1,137 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 2;
-use Test::Exception;
-
-
-
-## attribute trait example
-{
-
-    package MyApp::Meta::Attribute::Trait::Labeled;
-    use Moose::Role;
-
-    has label => (
-        is        => 'rw',
-        isa       => 'Str',
-        predicate => 'has_label',
-    );
-
-    package Moose::Meta::Attribute::Custom::Trait::Labeled;
-    sub register_implementation { 'MyApp::Meta::Attribute::Trait::Labeled' }
-
-    package MyApp::Website;
-    use Moose;
-
-    has url => (
-        traits => [qw/Labeled/],
-        isa    => 'Str',
-        is     => 'rw',
-        label  => "The site's URL",
-    );
-
-    has name => (
-        is  => 'rw',
-        isa => 'Str',
-    );
-
-    sub dump {
-        my $self = shift;
-
-        my $dump_value = '';
-        
-        # iterate over all the attributes in $self
-        my %attributes = %{ $self->meta->get_attribute_map };
-        foreach my $name (sort keys %attributes) {
-    
-            my $attribute = $attributes{$name};
-            
-            # print the label if available
-            if ($attribute->does('MyApp::Meta::Attribute::Trait::Labeled')
-                && $attribute->has_label) {
-                    $dump_value .= $attribute->label;
-            }
-            # otherwise print the name
-            else {
-                $dump_value .= $name;
-            }
-
-            # print the attribute's value
-            my $reader = $attribute->get_read_method;
-            $dump_value .= ": " . $self->$reader . "\n";
-        }
-        
-        return $dump_value;
-    }
-
-}
-
-my $app = MyApp::Website->new(url => "http://google.com", name => "Google");
-is($app->dump, q{name: Google
-The site's URL: http://google.com
-}, '... got the expected dump value');
-
-# using the trait directly in a regular metaclass
-{
-    package MyApp::Meta::Attribute::Labeled;
-    use Moose;
-    extends 'Moose::Meta::Attribute';
-    with 'MyApp::Meta::Attribute::Trait::Labeled';
-
-    package Moose::Meta::Attribute::Custom::Labeled;
-    sub register_implementation { 'MyApp::Meta::Attribute::Labeled' }
-
-    package MyApp::Website2;
-    use Moose;
-
-    has url => (
-        metaclass => 'Labeled',
-        isa       => 'Str',
-        is        => 'rw',
-        label     => "The site's URL",
-    );
-
-    has name => (
-        is  => 'rw',
-        isa => 'Str',
-    );
-
-    sub dump {
-        my $self = shift;
-
-        my $dump_value = '';
-        
-        # iterate over all the attributes in $self
-        my %attributes = %{ $self->meta->get_attribute_map };
-        foreach my $name (sort keys %attributes) {
-    
-            my $attribute = $attributes{$name};
-            
-            # print the label if available
-            if ($attribute->isa('MyApp::Meta::Attribute::Labeled')
-                && $attribute->has_label) {
-                    $dump_value .= $attribute->label;
-            }
-            # otherwise print the name
-            else {
-                $dump_value .= $name;
-            }
-
-            # print the attribute's value
-            my $reader = $attribute->get_read_method;
-            $dump_value .= ": " . $self->$reader . "\n";
-        }
-        
-        return $dump_value;
-    }
-
-}
-
-my $app2 = MyApp::Website2->new(url => "http://google.com", name => "Google");
-is($app2->dump, q{name: Google
-The site's URL: http://google.com
-}, '... got the expected dump value');
-