qmake: Test recursive function calls

Change-Id: If7d659728d30b2e5c52082ab999bc00de3733972
Reviewed-by: Oswald Buddenhagen <oswald.buddenhagen@digia.com>
This commit is contained in:
Konstantin Ritt 2012-11-26 07:39:34 +02:00 committed by The Qt Project
parent a376e0e772
commit b34c48d95b

View File

@ -88,6 +88,20 @@ myTestFunction("oink baa moo")
message("FAILED: myTestFunction: $$RESULT")
}
#recursive
defineReplace(myRecursiveReplaceFunction) {
RESULT =
list = $$1
RESULT += $$member(list, 0)
list -= $$RESULT
!isEmpty(list):RESULT += $$myRecursiveReplaceFunction($$list)
return($$RESULT)
}
RESULT = $$myRecursiveReplaceFunction(oink baa moo)
!isEqual(RESULT, "oink baa moo") {
message( "FAILED: myRecursiveReplaceFunction [$$RESULT] != oink baa moo" )
}
moo = "this is a test" "for real"
fn = $$OUT_PWD/testdir/afile
write_file($$fn, moo)|message("FAILED: write_file() failed")