Replace multiple tests with one.

Use QuickCheck to cover all starting pots that aren't 1-6.
Use isLeft to catch all errors.