Home
last modified time | relevance | path

Searched refs:clone (Results 1 – 25 of 396) sorted by relevance

12345678910>>...16

/openbsd-src/gnu/usr.bin/perl/dist/Storable/t/
H A Dweak.t42 my $clone = &$sub ($contents);
44 &$testersub ($clone, $what);
76 my ($clone, $what) = @_;
77 isa_ok($clone,'ARRAY');
78 isa_ok($clone->[0],'HASH');
79 isa_ok($clone->[1],'HASH');
80 ok(!isweak $clone->[0], "Element 0 isn't weak");
81 ok(isweak $clone->[1], "Element 1 is weak");
88 my ($clone, $what) = @_;
89 isa_ok($clone,'ARRAY');
[all …]
H A Dmalice.t62 my $clone = shift;
63 is (ref $clone, "HASH", "Get hash back");
64 is (scalar keys %$clone, 1, "with 1 key");
65 is ((keys %$clone)[0], "perl", "which is correct");
66 is ($clone->{perl}, "rules", "Got expected value when looking up key in clone");
97 my $clone = &$sub($short);
98 is (defined ($clone), '', "truncated $what to $i should fail");
111 my $clone = &$sub($data);
113 is (defined ($clone), '', "$name $what should fail");
126 my $clone = &$sub ($contents);
[all …]
H A Dattach_errors.t50 my ($self, $clone) = @_;
57 my ($class, $clone, $string) = @_;
77 my ($self, $clone) = @_;
84 my ($class, $clone, $string) = @_;
118 my ($self, $clone) = @_;
124 my ($class, $clone, $string) = @_;
159 my ($self, $clone) = @_;
167 my ($class, $clone, $string) = @_;
H A Dhuge.t91 my ($input, $exn, $clone);
95 $exn = $@ if !eval { $clone = dclone($input); 1 };
98 is_deeply($input, $clone, "$desc cloned");
103 undef $clone;
H A Ddclone.t79 my $clone = dclone($empty_string_obj);
81 is(ref $clone, ref $empty_string_obj);
82 is($$clone, $$empty_string_obj);
83 is($$clone, '');
/openbsd-src/gnu/gcc/gcc/cp/
H A Doptimize.c83 tree clone; in maybe_clone_body() local
97 FOR_EACH_CLONE (clone, fn) in maybe_clone_body()
105 DECL_SOURCE_LOCATION (clone) = DECL_SOURCE_LOCATION (fn); in maybe_clone_body()
106 DECL_INLINE (clone) = DECL_INLINE (fn); in maybe_clone_body()
107 DECL_DECLARED_INLINE_P (clone) = DECL_DECLARED_INLINE_P (fn); in maybe_clone_body()
108 DECL_COMDAT (clone) = DECL_COMDAT (fn); in maybe_clone_body()
109 DECL_WEAK (clone) = DECL_WEAK (fn); in maybe_clone_body()
110 DECL_ONE_ONLY (clone) = DECL_ONE_ONLY (fn); in maybe_clone_body()
111 DECL_SECTION_NAME (clone) = DECL_SECTION_NAME (fn); in maybe_clone_body()
112 DECL_USE_TEMPLATE (clone) = DECL_USE_TEMPLATE (fn); in maybe_clone_body()
[all …]
H A Dclass.c3744 tree clone; in build_clone() local
3747 clone = copy_decl (fn); in build_clone()
3749 DECL_CLONED_FUNCTION (clone) = fn; in build_clone()
3750 DECL_ABSTRACT_ORIGIN (clone) = fn; in build_clone()
3752 DECL_NAME (clone) = name; in build_clone()
3753 SET_DECL_ASSEMBLER_NAME (clone, NULL_TREE); in build_clone()
3755 DECL_PENDING_INLINE_INFO (clone) = NULL; in build_clone()
3756 DECL_PENDING_INLINE_P (clone) = 0; in build_clone()
3758 DECL_DEFERRED_FN (clone) = 0; in build_clone()
3763 DECL_VIRTUAL_P (clone) = 0; in build_clone()
[all …]
/openbsd-src/gnu/usr.bin/gcc/gcc/cp/
H A Doptimize.c143 tree clone; local
156 for (clone = TREE_CHAIN (fn);
157 clone && DECL_CLONED_FUNCTION_P (clone);
158 clone = TREE_CHAIN (clone), first = 0)
166 DECL_SOURCE_LOCATION (clone) = DECL_SOURCE_LOCATION (fn);
167 DECL_INLINE (clone) = DECL_INLINE (fn);
168 DID_INLINE_FUNC (clone) = DID_INLINE_FUNC (fn);
169 DECL_DECLARED_INLINE_P (clone) = DECL_DECLARED_INLINE_P (fn);
170 DECL_COMDAT (clone) = DECL_COMDAT (fn);
171 DECL_WEAK (clone) = DECL_WEAK (fn);
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Tie-RefHash/t/
H A Dstorable.t44 foreach my $clone ( \%hash, dclone(\%hash), thaw(nfreeze(\%hash)) ){
46 ok( tied(%$clone), "copy is tied");
47 isa_ok( tied(%$clone), "Tie::RefHash" );
49 my @keys = keys %$clone;
57 is( $clone->{$key}, "value", "and is still pointing at the same value" );
60 is( $clone->{$reg}, "other", "and is also a valid key" );
66 foreach my $clone ( \%only_refs, dclone(\%only_refs), thaw(nfreeze(\%only_refs)) ){
68 ok( tied(%$clone), "copy is tied");
69 isa_ok( tied(%$clone), "Tie::RefHash" );
71 my @keys = keys %$clone;
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/CPAN-Meta-Requirements/t/
H A Dmerge.t68 my $clone = $req_1->clone->add_requirements($req_2);
77 "clone/add_requirements does not affect lhs",
87 "clone/add_requirements does not affect rhs",
91 $clone->as_string_hash,
98 "clone and add_requirements",
101 $clone->clear_requirement('Shared');
104 $clone->as_string_hash,
118 my $req_2 = $req_1->clone;
125 'clone wit
[all...]
/openbsd-src/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/
H A D516-t-clone.t21 my $clone = $map->clone;
22 my $shallow = $map->clone(shallow => 1);
24 is_deeply($clone, $map, "Full clone equivalent to original");
29 ok(!$clone->get_typemap(ctype => 'foo'), "New typemap not propagated to full clone");
35 …ok(!$clone->get_typemap(ctype => 'unsigned int')->{blubb}, "Direct modification does not propagate…
/openbsd-src/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/
H A DTar.pm1020 ### clone the entry, make it appear as a normal file ###
1021 my $clone = $orig->clone;
1022 $clone->_downgrade_to_plainfile;
1023 $self->_extract_file( $clone, $file ) or last TRY;
1343 my $clone = $entry->clone;
1350 ### you might have an extended prefix, if so, set it in the clone
1352 $clone->name( length $ext_prefix
1354 $clone
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/CPAN-Meta/t/
H A Dprereqs-finalize.t70 my $clone = $prereqs->clone;
72 isa_ok($clone, 'CPAN::Meta::Prereqs', 'cloned prereqs obj');
74 ok(! $clone->is_finalized, 'cloned obj is not finalized');
76 is_deeply($clone->as_string_hash, $prereqs_struct, '...it still round-trips');
78 $clone->requirements_for(qw(runtime requires))->add_minimum(Cwd => 10);
82 $clone->requirements_for(qw(runtime requires))->add_minimum(Cwd => 1000);
86 $clone->requirements_for(qw(develop suggests));
90 $clone->requirements_for(qw(develop suggests))->add_minimum(Foo => 1);
/openbsd-src/gnu/usr.bin/perl/cpan/Digest-MD5/t/
H A Dclone.t12 my $b = $a->clone;
14 print "not " unless $b->clone->hexdigest eq md5_hex("a");
25 print "not " unless $b->clone->hexdigest eq md5_hex("ab");
29 print "not " unless $b->clone->hexdigest eq md5_hex("abc");
40 $b = $a->clone;
/openbsd-src/gnu/usr.bin/gcc/gcc/testsuite/g++.old-deja/g++.robertl/
H A Deb17.C8 virtual A * clone();
18 B * clone();
32 A * A::clone() in clone() function
37 B * B::clone() in clone() function
55 a = a->clone(); in main()
/openbsd-src/gnu/gcc/gcc/
H A Dipa.c181 struct cgraph_node *clone; in cgraph_remove_unreachable_nodes() local
183 for (clone = node->next_clone; clone; in cgraph_remove_unreachable_nodes()
184 clone = clone->next_clone) in cgraph_remove_unreachable_nodes()
185 if (clone->aux) in cgraph_remove_unreachable_nodes()
187 if (!clone) in cgraph_remove_unreachable_nodes()
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/lib/Encode/
H A DEncoding.pm33 my $clone = bless {%$self} => ref($self);
34 $clone->{renewed}++; # so the caller can see it
35 DEBUG and warn $clone->{renewed};
36 return $clone;
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/
H A DContext.pm162 my $clone = $self->snapshot;
163 @$clone{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} = ($!, $@, $?);
164 $clone->{+TRACE} = $clone->{+TRACE}->snapshot(pid => $$, tid => get_tid());
166 my $hub = $clone->{+HUB};
171 $clone->{+_IS_CANON} = 1;
172 $CONTEXTS->{$hid} = $clone;
175 my ($rok, $rerr) = try { $clone->release };
176 delete $clone->{+_IS_CANON};
566 may pass it a snapshot. C<< $ctx->snapshot >> will give you a shallow clone o
[all...]
/openbsd-src/lib/libcurses/base/
H A Dlib_mvwin.c81 WINDOW *clone = dupwin(win); in NCURSES_EXPORT()
82 if (clone) { in NCURSES_EXPORT()
94 err = copywin(clone, win, in NCURSES_EXPORT()
99 if (ERR == delwin(clone)) in NCURSES_EXPORT()
/openbsd-src/gnu/usr.bin/perl/cpan/Time-Piece/t/
H A D01base.t36 #via clone
38 isa_ok($l, 'Time::Piece', 'custom localtime via clone');
41 #via clone with gmtime
43 isa_ok($g, 'Time::Piece', 'custom gmtime via clone');
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/Unicode/
H A DUnicode.pm50 my $clone = bless {%$self} => ref($self);
51 $clone->{renewed}++; # so the caller knows it is renewed.
52 return $clone;
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/
H A DEventFacet.t13 is_deeply($one->clone, $one, "Cloning.");
15 isnt($one->clone, $one, "Clone is a new ref");
17 my $two = $one->clone(details => 'bar');
/openbsd-src/gnu/llvm/llvm/lib/ExecutionEngine/IntelJITEvents/
H A DCMakeLists.txt16 execute_process(COMMAND ${GIT_EXECUTABLE} clone ${ITTAPI_GIT_REPOSITORY}
20 …message(FATAL_ERROR "git clone ${ITTAPI_GIT_REPOSITORY} failed with ${GIT_CLONE_RESULT}, please cl…
/openbsd-src/regress/sys/kern/ftruncate/
H A DMakefile6 REGRESS_TARGETS+= clone-device
8 clone-device: ${PROG}
/openbsd-src/regress/sys/kern/fchown/
H A DMakefile6 REGRESS_TARGETS+= clone-device
8 clone-device: ${PROG}

12345678910>>...16