Remove Perl test t/501-include_dir.t This test is part of C test suite now.
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/20eef8fc Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/20eef8fc Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/20eef8fc Branch: refs/heads/master Commit: 20eef8fc34f5e9042131cebb01137e7c42955410 Parents: 64142fb Author: Nick Wellnhofer <wellnho...@aevum.de> Authored: Thu Mar 10 14:26:25 2016 +0100 Committer: Nick Wellnhofer <wellnho...@aevum.de> Committed: Thu Mar 10 14:26:25 2016 +0100 ---------------------------------------------------------------------- compiler/perl/t/501-include_dir.t | 103 --------------------------------- 1 file changed, 103 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/20eef8fc/compiler/perl/t/501-include_dir.t ---------------------------------------------------------------------- diff --git a/compiler/perl/t/501-include_dir.t b/compiler/perl/t/501-include_dir.t deleted file mode 100644 index 0e4d24e..0000000 --- a/compiler/perl/t/501-include_dir.t +++ /dev/null @@ -1,103 +0,0 @@ -# Licensed to the Apache Software Foundation (ASF) under one or more -# contributor license agreements. See the NOTICE file distributed with -# this work for additional information regarding copyright ownership. -# The ASF licenses this file to You under the Apache License, Version 2.0 -# (the "License"); you may not use this file except in compliance with -# the License. You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -use strict; -use warnings; - -use Test::More tests => 24; - -use Clownfish::CFC::Model::Hierarchy; -use Clownfish::CFC::Test::TestUtils qw( test_files_dir ); -use File::Spec::Functions qw( catdir catfile splitpath ); -use File::Path qw( rmtree ); - -my $base_dir = catdir( test_files_dir(), 'cfbase' ); -my $ext_dir = catdir( test_files_dir(), 'cfext' ); -my $dest_dir = 'autogen'; - -# One source, one include - -{ - my $hierarchy = Clownfish::CFC::Model::Hierarchy->new(dest => $dest_dir); - - $hierarchy->add_source_dir($ext_dir); - is_deeply( $hierarchy->get_source_dirs, [ $ext_dir ], "get_source_dirs" ); - - $hierarchy->add_include_dir($base_dir); - is_deeply( $hierarchy->get_include_dirs, [ $base_dir ], - "get_include_dirs" ); - - $hierarchy->build; - - my $classes = $hierarchy->ordered_classes; - is( scalar @$classes, 5, "all classes" ); - my $num_included = 0; - for my $class (@$classes) { - die "not a Class" - unless isa_ok( $class, "Clownfish::CFC::Model::Class" ); - - my $expect; - - if ($class->get_name eq "Animal::Rottweiler") { - $expect = 0; - my $parent_name = $class->get_parent->get_name; - is( $parent_name, "Animal::Dog", "parent of included class" ); - } - else { - $expect = 1; - } - - my $included = $class->included ? 1 : 0; - ++$num_included if $included; - - is( $included, $expect, "included" ); - } - is( $num_included, 4, "included class count" ); - - Clownfish::CFC::Model::Class->_clear_registry(); - Clownfish::CFC::Model::Parcel->reap_singletons(); -} - -# Two sources - -{ - my $hierarchy = Clownfish::CFC::Model::Hierarchy->new(dest => $dest_dir); - - $hierarchy->add_source_dir($base_dir); - $hierarchy->add_source_dir($ext_dir); - is_deeply( $hierarchy->get_source_dirs, [ $base_dir, $ext_dir ], - "get_source_dirs" ); - is_deeply( $hierarchy->get_include_dirs, [], "get_include_dirs" ); - - $hierarchy->build; - - my $classes = $hierarchy->ordered_classes; - is( scalar @$classes, 5, "all classes" ); - for my $class (@$classes) { - die "not a Class" unless isa_ok( $class, "Clownfish::CFC::Model::Class" ); - - if ($class->get_name eq "Animal::Rottweiler") { - my $parent_name = $class->get_parent->get_name; - is( $parent_name, "Animal::Dog", "parent of class from second source" ); - } - } - - Clownfish::CFC::Model::Class->_clear_registry(); - Clownfish::CFC::Model::Parcel->reap_singletons(); -} - -# Clean up. -rmtree($dest_dir); -
