#!/usr/bin/perl -w
use Test::More tests => 2;
use strict;
use SVK::Test;
our $output;
my ($xd, $svk) = build_test();
my ($copath, $corpath) = get_copath ('import-nomime');
my ($repospath, undef, $repos) = $xd->find_repos ('//', 1);

mkdir ($copath);
chdir ($copath);

# Create some files with different mime types
create_mime_samples('mime');

delete $ENV{SVKMIME};
is_output ($svk, 'import', ['-m', 'import', '//import'],
    ["Committed revision 1.",
    'Import path //import initialized.',
    "Committed revision 2.",
    "Directory $corpath imported to depotpath //import as revision 2.",
    ]);
is_output ($svk, 'pl', ['-v', glob_mime_samples('//import/mime')],
    ['Properties on //import/mime/foo.bin:',
        '  svn:mime-type: application/octet-stream',
        'Properties on //import/mime/foo.jpg:',
        '  svn:mime-type: application/octet-stream',
    ]);