Repository: lucy Updated Branches: refs/heads/master 516bea18e -> 51c231cd7
Remove Clownfish tests Project: http://git-wip-us.apache.org/repos/asf/lucy/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/51c231cd Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/51c231cd Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/51c231cd Branch: refs/heads/master Commit: 51c231cd7a26de0f5d5574f0188f7a8b84b38e1a Parents: 516bea1 Author: Nick Wellnhofer <[email protected]> Authored: Wed Dec 24 17:28:17 2014 +0100 Committer: Nick Wellnhofer <[email protected]> Committed: Wed Dec 24 17:28:17 2014 +0100 ---------------------------------------------------------------------- perl/t/018-host.t | 43 --------- perl/t/binding/016-varray.t | 29 ------ perl/t/binding/017-hash.t | 33 ------- perl/t/binding/019-obj.t | 138 --------------------------- perl/t/binding/029-charbuf.t | 32 ------- perl/t/binding/034-err.t | 70 -------------- perl/t/binding/038-lock_free_registry.t | 75 --------------- perl/t/core/016-varray.t | 23 ----- perl/t/core/017-hash.t | 23 ----- perl/t/core/019-obj.t | 23 ----- perl/t/core/020-err.t | 23 ----- perl/t/core/022-bytebuf.t | 23 ----- perl/t/core/029-charbuf.t | 23 ----- perl/t/core/030-number_utils.t | 25 ----- perl/t/core/031-num.t | 23 ----- perl/t/core/032-string_helper.t | 25 ----- perl/t/core/037-atomic.t | 23 ----- perl/t/core/038-lock_free_registry.t | 25 ----- perl/t/core/039-memory.t | 23 ----- 19 files changed, 702 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/018-host.t ---------------------------------------------------------------------- diff --git a/perl/t/018-host.t b/perl/t/018-host.t deleted file mode 100644 index 061f912..0000000 --- a/perl/t/018-host.t +++ /dev/null @@ -1,43 +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 => 3; -use Lucy::Test; -use Clownfish qw( to_perl to_clownfish ); - -my %complex_data_structure = ( - a => [ 1, 2, 3, { ooga => 'booga' } ], - b => { foo => 'foofoo', bar => 'barbar' }, -); -my $kobj = to_clownfish( \%complex_data_structure ); -isa_ok( $kobj, 'Clownfish::Obj' ); -my $transformed = to_perl($kobj); -is_deeply( $transformed, \%complex_data_structure, - "transform from Perl to Clownfish data structures and back" ); - -my $bread_and_butter = Clownfish::Hash->new; -$bread_and_butter->store( 'bread', Clownfish::ByteBuf->new('butter') ); -my $salt_and_pepper = Clownfish::Hash->new; -$salt_and_pepper->store( 'salt', Clownfish::ByteBuf->new('pepper') ); -$complex_data_structure{c} = $bread_and_butter; -$complex_data_structure{d} = $salt_and_pepper; -$transformed = to_perl( to_clownfish( \%complex_data_structure ) ); -$complex_data_structure{c} = { bread => 'butter' }; -$complex_data_structure{d} = { salt => 'pepper' }; -is_deeply( $transformed, \%complex_data_structure, - "handle mixed data structure correctly" ); http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/binding/016-varray.t ---------------------------------------------------------------------- diff --git a/perl/t/binding/016-varray.t b/perl/t/binding/016-varray.t deleted file mode 100644 index 2370203..0000000 --- a/perl/t/binding/016-varray.t +++ /dev/null @@ -1,29 +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 => 1; -use Lucy::Test; - -my ( $varray, $twin ); - -$varray = Clownfish::VArray->new; -$varray->push( Clownfish::String->new($_) ) for 1 .. 5; -$varray->delete(3); -$twin = $varray->_clone; -is_deeply( $twin->to_perl, $varray->to_perl, "clone" ); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/binding/017-hash.t ---------------------------------------------------------------------- diff --git a/perl/t/binding/017-hash.t b/perl/t/binding/017-hash.t deleted file mode 100644 index 5c02406..0000000 --- a/perl/t/binding/017-hash.t +++ /dev/null @@ -1,33 +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 => 2; -use Lucy::Test; -use Clownfish qw( to_perl to_clownfish ); - -my $hash = Clownfish::Hash->new( capacity => 10 ); -$hash->store( "foo", Clownfish::String->new("bar") ); -$hash->store( "baz", Clownfish::String->new("banana") ); - -ok( !defined( $hash->fetch("blah") ), - "fetch for a non-existent key returns undef" ); - -my %hash_with_utf8_keys = ( "\x{263a}" => "foo" ); -my $round_tripped = to_perl( to_clownfish( \%hash_with_utf8_keys ) ); -is_deeply( $round_tripped, \%hash_with_utf8_keys, - "Round trip conversion of hash with UTF-8 keys" ); http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/binding/019-obj.t ---------------------------------------------------------------------- diff --git a/perl/t/binding/019-obj.t b/perl/t/binding/019-obj.t deleted file mode 100644 index 70865f9..0000000 --- a/perl/t/binding/019-obj.t +++ /dev/null @@ -1,138 +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 => 19; - -package TestObj; -use base qw( Lucy::Search::Query ); - -our $version = $Lucy::VERSION; - -package SonOfTestObj; -use base qw( TestObj ); -{ - sub to_string { - my $self = shift; - return "STRING: " . $self->SUPER::to_string; - } - - sub serialize { - my ( $self, $outstream ) = @_; - $self->SUPER::serialize($outstream); - $outstream->write_string("zowie"); - } - - sub deserialize { - my ( $self, $instream ) = @_; - $self = $self->SUPER::deserialize($instream); - $instream->read_string; - return $self; - } -} - -package BadSerialize; -use base qw( Lucy::Search::Query ); -{ - sub serialize { } -} - -package BadRefCount; -use base qw( Clownfish::Obj ); -{ - sub inc_refcount { - my $self = shift; - $self->SUPER::inc_refcount; - return; - } -} - -package LegacyObj; -use base qw( Lucy::Object::Obj ); - -package main; -use Storable qw( freeze thaw ); - -ok( defined $TestObj::version, - "Using base class should grant access to " - . "package globals in the Lucy:: namespace" -); - -my $object = TestObj->new; -isa_ok( $object, "Clownfish::Obj", - "Clownfish objects can be subclassed outside the Lucy hierarchy" ); - -ok( $object->is_a("Clownfish::Obj"), "custom is_a correct" ); -ok( !$object->is_a("Lucy::Object"), "custom is_a too long" ); -ok( !$object->is_a("Lucy"), "custom is_a substring" ); -ok( !$object->is_a(""), "custom is_a blank" ); -ok( !$object->is_a("thing"), "custom is_a wrong" ); - -my $legacy_obj = LegacyObj->new; -ok( $object->is_a("Clownfish::Obj"), "stub compat class Lucy::Object::Obj" ); - -eval { my $another_obj = TestObj->new( kill_me_now => 1 ) }; -like( $@, qr/kill_me_now/, "reject bad param" ); - -my $stringified_perl_obj = "$object"; -require Clownfish::Hash; -my $hash = Clownfish::Hash->new; -$hash->store( foo => $object ); -is( $object->get_refcount, 2, "refcount increased via C code" ); -is( $object->get_refcount, 2, "refcount increased via C code" ); -undef $object; -$object = $hash->fetch("foo"); -is( "$object", $stringified_perl_obj, "same perl object as before" ); - -is( $object->get_refcount, 2, "correct refcount after retrieval" ); -undef $hash; -is( $object->get_refcount, 1, "correct refcount after destruction of ref" ); - -my $copy = thaw( freeze($object) ); -is( ref($copy), ref($object), "freeze/thaw" ); - -$object = SonOfTestObj->new; -like( $object->to_string, qr/STRING:.*?SonOfTestObj/, - "overridden XS bindings can be called via SUPER" ); - -my $frozen = freeze($object); -my $dupe = thaw($frozen); -is( ref($dupe), ref($object), "override serialize/deserialize" ); - -SKIP: { - skip( "Invalid serialization causes leaks", 1 ) if $ENV{LUCY_VALGRIND}; - my $bad = BadSerialize->new; - eval { my $froze = freeze($bad); }; - like( $@, qr/empty/i, - "Don't allow subclasses to perform invalid serialization" ); -} - -SKIP: { - skip( "Exception thrown within callback leaks", 1 ) - if $ENV{LUCY_VALGRIND}; - - # The Perl binding for VArray#store calls inc_refcount() from C space. - # This test verifies that the Perl bindings generated by CFC handle - # non-`nullable` return values correctly, by ensuring that the Perl - # callback wrapper for inc_refcount() checks the return value and throws - # an exception if a Perl-space implementation returns undef. - my $array = Clownfish::VArray->new; - eval { $array->store( 1, BadRefCount->new ); }; - like( $@, qr/NULL/, - "Don't allow methods without nullable return values to return NULL" ); -} - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/binding/029-charbuf.t ---------------------------------------------------------------------- diff --git a/perl/t/binding/029-charbuf.t b/perl/t/binding/029-charbuf.t deleted file mode 100644 index fd30032..0000000 --- a/perl/t/binding/029-charbuf.t +++ /dev/null @@ -1,32 +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 lib 'buildlib'; - -use Test::More tests => 3; -use Lucy::Test::TestUtils qw( utf8_test_strings ); - -my ( $smiley, $not_a_smiley, $frowny ) = utf8_test_strings(); - -my $string = Clownfish::String->new($smiley); -isa_ok( $string, "Clownfish::String" ); -is( $string->to_perl, $smiley, "round trip UTF-8" ); - -$string = Clownfish::String->new($smiley); -my $clone = $string->clone; -is( $clone->to_perl, Clownfish::String->new($smiley)->to_perl, "clone" ); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/binding/034-err.t ---------------------------------------------------------------------- diff --git a/perl/t/binding/034-err.t b/perl/t/binding/034-err.t deleted file mode 100644 index 0f3f97f..0000000 --- a/perl/t/binding/034-err.t +++ /dev/null @@ -1,70 +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 Lucy::Test; - -package Nirvana; - -sub enter { - die Clownfish::Err->new("blam"); -} - -package GloriousDeath; -use base qw( Clownfish::Err ); - -package main; -use Test::More tests => 10; - -isa_ok( Clownfish::Err->new("Bad stuff happened"), - 'Clownfish::Err', "new" ); - -my $glorious = GloriousDeath->new("Banzai"); -isa_ok( $glorious, 'GloriousDeath', "subclass" ); -isa_ok( $glorious, 'Clownfish::Err', "subclass" ); - -isa_ok( Clownfish::Err::trap( "bite_the_dust", undef ), - 'Clownfish::Err', "trap string call" ); - -isa_ok( Clownfish::Err::trap( "Nirvana::enter", undef ), - 'Clownfish::Err', "trap string call in another package" ); - -isa_ok( Clownfish::Err::trap( \&bite_the_dust, undef ), - 'Clownfish::Err', "trap sub ref" ); - -isa_ok( Clownfish::Err::trap( \&Nirvana::enter, undef ), - 'Clownfish::Err', "trap sub ref to another package" ); - -isa_ok( Clownfish::Err::trap( \&judge_gladiator, "down" ), - 'Clownfish::Err', "pass argument to 'trap'" ); - -my $last_words = sub { die "Rosebud" }; -isa_ok( Clownfish::Err::trap( $last_words, undef ), - 'Clownfish::Err', "Wrap host exception in Err" ); - -my $succeed = sub { }; -ok( !defined( Clownfish::Err::trap( $succeed, undef ) ), - "nothing to trap" ); - -sub bite_the_dust { die Clownfish::Err->new("gasp") } - -sub judge_gladiator { - my $thumb = shift; - if ( $thumb and $thumb eq 'down' ) { - die GloriousDeath->new("gurgle"); - } -} - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/binding/038-lock_free_registry.t ---------------------------------------------------------------------- diff --git a/perl/t/binding/038-lock_free_registry.t b/perl/t/binding/038-lock_free_registry.t deleted file mode 100644 index 7575175..0000000 --- a/perl/t/binding/038-lock_free_registry.t +++ /dev/null @@ -1,75 +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 Config; -use Test::More; -BEGIN { - if ( $ENV{LUCY_VALGRIND} ) { - plan( skip_all => 'Known leaks' ); - } - elsif ( !defined( $ENV{LUCY_DEBUG} ) ) { - plan( skip_all => 'Debug-only test' ); - } - elsif ( $Config{usethreads} and $^O !~ /mswin/i ) { - plan( tests => 1 ); - } - else { - plan( skip_all => 'No thread support' ); - } -} -use threads; -use threads::shared; -use Time::HiRes qw( time usleep ); -use List::Util qw( shuffle ); -use Lucy::Test; - -my $registry = Clownfish::LockFreeRegistry->new( capacity => 32 ); - -sub register_many { - my ( $nums, $delay ) = @_; - - # Encourage contention, so that all threads try to register at the same - # time. - sleep $delay; - threads->yield(); - - my $succeeded = 0; - for my $number (@$nums) { - my $obj = Clownfish::String->new($number); - $succeeded += $registry->register( key => $obj, value => $obj ); - } - - return $succeeded; -} - -my @threads; - -my $target_time = time() + .5; -my @num_sets = map { [ shuffle( 1 .. 10000 ) ] } 1 .. 5; -for my $num ( 1 .. 5 ) { - my $delay = $target_time - time(); - my $thread = threads->create( \®ister_many, pop @num_sets, $delay ); - push @threads, $thread; -} - -my $total_succeeded = 0; -$total_succeeded += $_->join for @threads; - -is( $total_succeeded, 10000, - "registered exactly the right number of entries across all threads" ); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/016-varray.t ---------------------------------------------------------------------- diff --git a/perl/t/core/016-varray.t b/perl/t/core/016-varray.t deleted file mode 100644 index 5ddb5c1..0000000 --- a/perl/t/core/016-varray.t +++ /dev/null @@ -1,23 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests("Clownfish::Test::TestVArray"); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/017-hash.t ---------------------------------------------------------------------- diff --git a/perl/t/core/017-hash.t b/perl/t/core/017-hash.t deleted file mode 100644 index f8583c8..0000000 --- a/perl/t/core/017-hash.t +++ /dev/null @@ -1,23 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests("Clownfish::Test::TestHash"); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/019-obj.t ---------------------------------------------------------------------- diff --git a/perl/t/core/019-obj.t b/perl/t/core/019-obj.t deleted file mode 100644 index ea51ecf..0000000 --- a/perl/t/core/019-obj.t +++ /dev/null @@ -1,23 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests("Clownfish::Test::TestObj"); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/020-err.t ---------------------------------------------------------------------- diff --git a/perl/t/core/020-err.t b/perl/t/core/020-err.t deleted file mode 100644 index 0679130..0000000 --- a/perl/t/core/020-err.t +++ /dev/null @@ -1,23 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests("Clownfish::Test::TestErr"); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/022-bytebuf.t ---------------------------------------------------------------------- diff --git a/perl/t/core/022-bytebuf.t b/perl/t/core/022-bytebuf.t deleted file mode 100644 index 5dd7437..0000000 --- a/perl/t/core/022-bytebuf.t +++ /dev/null @@ -1,23 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests("Clownfish::Test::TestByteBuf"); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/029-charbuf.t ---------------------------------------------------------------------- diff --git a/perl/t/core/029-charbuf.t b/perl/t/core/029-charbuf.t deleted file mode 100644 index 39041fb..0000000 --- a/perl/t/core/029-charbuf.t +++ /dev/null @@ -1,23 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests("Clownfish::Test::TestCharBuf"); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/030-number_utils.t ---------------------------------------------------------------------- diff --git a/perl/t/core/030-number_utils.t b/perl/t/core/030-number_utils.t deleted file mode 100644 index 1035f96..0000000 --- a/perl/t/core/030-number_utils.t +++ /dev/null @@ -1,25 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests( - "Clownfish::Test::Util::TestNumberUtils" -); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/031-num.t ---------------------------------------------------------------------- diff --git a/perl/t/core/031-num.t b/perl/t/core/031-num.t deleted file mode 100644 index e784ae6..0000000 --- a/perl/t/core/031-num.t +++ /dev/null @@ -1,23 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests("Clownfish::Test::TestNum"); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/032-string_helper.t ---------------------------------------------------------------------- diff --git a/perl/t/core/032-string_helper.t b/perl/t/core/032-string_helper.t deleted file mode 100644 index ffa4fbe..0000000 --- a/perl/t/core/032-string_helper.t +++ /dev/null @@ -1,25 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests( - "Clownfish::Test::Util::TestStringHelper" -); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/037-atomic.t ---------------------------------------------------------------------- diff --git a/perl/t/core/037-atomic.t b/perl/t/core/037-atomic.t deleted file mode 100644 index 1ed26e9..0000000 --- a/perl/t/core/037-atomic.t +++ /dev/null @@ -1,23 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests("Clownfish::Test::Util::TestAtomic"); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/038-lock_free_registry.t ---------------------------------------------------------------------- diff --git a/perl/t/core/038-lock_free_registry.t b/perl/t/core/038-lock_free_registry.t deleted file mode 100644 index f6484c6..0000000 --- a/perl/t/core/038-lock_free_registry.t +++ /dev/null @@ -1,25 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests( - "Clownfish::Test::TestLockFreeRegistry" -); - -exit($success ? 0 : 1); - http://git-wip-us.apache.org/repos/asf/lucy/blob/51c231cd/perl/t/core/039-memory.t ---------------------------------------------------------------------- diff --git a/perl/t/core/039-memory.t b/perl/t/core/039-memory.t deleted file mode 100644 index 16c1c68..0000000 --- a/perl/t/core/039-memory.t +++ /dev/null @@ -1,23 +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 Clownfish::Test; -my $success = Clownfish::Test::run_tests("Clownfish::Test::Util::TestMemory"); - -exit($success ? 0 : 1); -
