bc328f8ec3
Change-Id: Ie079c52eb800878983501b9fe2b2f6c27df0cdb1 Reviewed-by: Joerg Bornemann <joerg.bornemann@digia.com>
13 lines
473 B
Prolog
13 lines
473 B
Prolog
VAR = 1 2 3 4 5
|
|
JOINEDVAR = $$join( VAR, "-GLUE-", "-BEFORE-", "-AFTER-" )
|
|
!contains( JOINEDVAR, -BEFORE-1-GLUE-2-GLUE-3-GLUE-4-GLUE-5-AFTER- ) {
|
|
message( "FAILED: join [$$JOINEDVAR != -BEFORE-1-GLUE-2-GLUE-3-GLUE-4-GLUE-5-AFTER-]" )
|
|
}
|
|
|
|
# To test member we need to use join
|
|
NEWVAR = $$member( VAR, 4 ) $$member( VAR, 3 ) $$member( VAR, 2 )
|
|
JOINEDNEWVAR = $$join( NEWVAR, "-" )
|
|
!contains( JOINEDNEWVAR, 5-4-3 ) {
|
|
message( "FAILED: member [$$JOINEDNEWVAR != 5-4-3]" )
|
|
}
|