Test case should be something along these lines:
Use Fabrice Daugan's code as a function, and call it with some value (e.g. "TestValue") and at least the following queries:
"SELECT Foo FROM Foo WHERE Foo.param1 = :value"
"SELECT Foo FROM Foo WHERE Foo.param1 = ?"
"SELECT Foo FROM Foo WHERE Foo.param1 = ?1"
"SELECT Foo FROM Foo WHERE Foo.param1 = ? AND Foo.param2 = 5"

You could also add those same 4 queries again but with a second parameter. Then just verify that it doesn't throw any exceptions, and somehow verify that the parameter is actually set.