Add some more unit tests for the `current_predicate/1` built-in method