is $@, '', 'creating a sequence with two different patterns doesn\'t croak';
check $seq, 'a sequence with two different patterns', <<'DECL', <<'BODY';
is $@, '', 'creating a sequence with two different patterns doesn\'t croak';
check $seq, 'a sequence with two different patterns', <<'DECL', <<'BODY';