use 5.010;
use strict;
use warnings;

package Test::App::MP4Meta::Source::Data::TVEpisode;
use base qw(TestBase);

use Test::More;

use App::MP4Meta::Source::Data::TVEpisode;

# underscored so we run first
sub _create_new : Test(2) {
    my $self = shift;

    my $episode = new_ok('App::MP4Meta::Source::Data::TVEpisode');
    can_ok( $episode, 'merge' );
}

sub episode : Test(3) {
    my $self = shift;

    my $e = App::MP4Meta::Source::Data::TVEpisode->new(
        genre      => 'Comedy',
        year       => '2012',
        show_title => 'The Office',
    );

    is( $e->genre,      'Comedy' );
    is( $e->year,       '2012' );
    is( $e->show_title, 'The Office' );
}

1;