Data.Dict: Rewrite the test by themis
Data.Dict: Fix exception