forth test