package Path::Extended::Test::Subclass::FileOrDir;

use strict;
use warnings;
use Test::Classy::Base;
use Path::Extended::Test;

sub initialize {
  my $class = shift;

  dir('t/tmp/dir')->mkdir;
  file('t/tmp/file')->touch;
}

sub file_or_dir_for_an_existing_file : Test {
  my $class = shift;

  my $maybe_file = file_or_dir('t/tmp/file');
  ok $maybe_file->isa('Path::Extended::Test::File'), $class->message('got a File object for an existing file');
}

sub file_or_dir_for_an_existing_dir : Test {
  my $class = shift;

  my $maybe_file = file_or_dir('t/tmp/dir');
  ok $maybe_file->isa('Path::Extended::Test::Dir'), $class->message('got a Dir object for an existing directory');
}

sub file_or_dir_for_an_unknown_path : Test {
  my $class = shift;

  my $maybe_file = file_or_dir('t/tmp/unknown');
  ok $maybe_file->isa('Path::Extended::Test::File'), $class->message('got a File object for an unknown path');
}

sub dir_or_file_for_an_existing_file : Test {
  my $class = shift;

  my $maybe_dir = dir_or_file('t/tmp/file');
  ok $maybe_dir->isa('Path::Extended::Test::File'), $class->message('got a File object for an existing file');
}

sub dir_or_file_for_an_existing_dir : Test {
  my $class = shift;

  my $maybe_dir = dir_or_file('t/tmp/dir');
  ok $maybe_dir->isa('Path::Extended::Test::Dir'), $class->message('got a Dir object for an existing directory');
}

sub dir_or_file_for_an_unknown_path : Test {
  my $class = shift;

  my $maybe_dir = dir_or_file('t/tmp/unknown');
  ok $maybe_dir->isa('Path::Extended::Test::Dir'), $class->message('got a Dir object for an unknown path');
}

1;