testRetractAtomEmptyList

Tests the queries

?- retract((atom(_) :- X == '[]')).

fails on a solver initialized with default built-ins and with and empty theory, producing exception permission_error(modify,private_procedure,atom/1).