view release on metacpan or  search on metacpan

t/parser/15-predicate.t  view on Meta::CPAN

-->	(<s> ^foo bar)
}
--- expected_structure
[
	{test => {simpleTest => {type => 'int', constant => '1'}}, '+' => 'no'},
	{test => {simpleTest => {relationTest => {test => {type => 'int', constant => '0'}, relation => '>'}}},'+' => 'no'},
	{test => {simpleTest => {relationTest => {test => {type => 'int', constant => '45'}, relation => '<=>'}}},'+' => 'no'},
	{test => {simpleTest => {relationTest => {test => {type => 'sym', constant => {type => 'string', value => 'NaN'}}, relation => '<>'}}},'+' => 'no'},
]

=== conjunction with unary prefs
from page 45 of the manual
--- parse_success
sp {conjunct-unary-pref
	(state <s> ^foo { <= <a> >= <b> })
-->	(<s> ^bar ||)
}
--- expected: 1

=== conjunction with binary pref
from page 45 of the manual
--- parse_success
sp {conjunct-binary-pref
	(state <s> ^foo { <a> > <b> })
-->	(<s> ^bar ||)
}
--- expected: 1

=== conjunction with mixed prefs
from page 45 of the manual
--- parse_success
sp {conjunct-mixed-pref
	(state <s> ^foo { <=> <x> > <y> << 1 2 3 4 >> <z> } )
-->	(<s> ^bar ||)
}
--- expected: 1

=== conjunction with mixed prefs structure
from page 45 of the manual
--- parse_struct
sp {conjunct-mixed-pref
	(state <s> ^foo { <=> <x> > <y> << 1 2 3 4 >> <z> } )
-->	(<s> ^bar ||)
}
--- expected_structure
[
	{'test' => {'conjunctiveTest' => [
		{'relationTest' => {'test' => {'variable' => 'x'},'relation' => '<=>'}},