lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From nwelln...@apache.org
Subject [12/12] lucy-clownfish git commit: Remove Perl test t/501-include_dir.t
Date Thu, 10 Mar 2016 13:35:29 GMT
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 <wellnhofer@aevum.de>
Authored: Thu Mar 10 14:26:25 2016 +0100
Committer: Nick Wellnhofer <wellnhofer@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);
-


Mime
View raw message