Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add tests for clset

  • Loading branch information...
commit b098d6467ed8bec99c56faefbf610ae38f9d9bbd 1 parent ab38254
Steven Haryanto (on Asus Zenbook) authored
Showing with 12 additions and 0 deletions.
  1. +12 −0 devscripts/gen-type-spectest
View
12 devscripts/gen-type-spectest
@@ -155,12 +155,24 @@ sub gen_BaseType_tests {
dies => 1,
};
push @res, {
+ name => "clset (dies, unknown attr)",
+ input => $args{value},
+ schema => ["$Type*", clset=>{min_len=>1, "min_len.foo"=>1}],
+ dies => 1,
+ };
+ push @res, {
name => "clset (empty = ok)",
input => $args{value},
schema => ["$Type*", clset=>{}],
valid => 1,
};
push @res, {
+ name => "clset (ignored clause/attr = ok)",
+ input => $args{value},
+ schema => ["$Type*", clset=>{_foo=>1, "foo._bar"=>2}],
+ valid => 1,
+ };
+ push @res, {
name => "clset (ok + ok = ok)",
input => $args{value},
schema => ["$Type*", clset=>{
Please sign in to comment.
Something went wrong with that request. Please try again.