# t/02_test.t - check some mdat atom edge cases

use strict;
use warnings;

use Test::More tests => 6;

BEGIN { use_ok('Audio::M4P::Decrypt'); }

my $object = new Audio::M4P::Decrypt;
isa_ok( $object, 'Audio::M4P::Decrypt' );

use Audio::M4P::QuickTime;

my $qt = new Audio::M4P::QuickTime( file => 't/0mdat.mp4' );
isa_ok( $qt, 'Audio::M4P::QuickTime' );

$qt = new Audio::M4P::QuickTime( file => 't/64bit_mdat.mp4' );
isa_ok( $qt, 'Audio::M4P::QuickTime' );

$qt = new Audio::M4P::QuickTime( file => 't/64bit_mutt.mp4' );
isa_ok( $qt, 'Audio::M4P::QuickTime' );
my $alb = "The Mutt Album";
$qt->album($alb);
$qt->WriteFile('t/temp02.mp4');
$qt = new Audio::M4P::QuickTime( file => 't/temp02.mp4' );
ok( $qt->album eq $alb, "Album Tag" );