Permalink
Browse files

Add a broken test case for #41

  • Loading branch information...
1 parent ebc59de commit bdf5c3babd3c01a0f439a2fd77b4afdafbb009c8 @jaspervdj committed Jul 10, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 digestive-functors/tests/Text/Digestive/View/Tests.hs
@@ -95,6 +95,11 @@ tests = testGroup "Text.Digestive.View.Tests"
4 $
length $ subViews $ runTrainerM $ getForm "f" pokemonForm
+ , testCase "subViews after subView length" $ (@=?)
+ 4 $
+ length $ subViews $ subView "pokemon" $
+ runTrainerM $ getForm "f" catchForm
+
, testCase "Abusing Choice as Text" $ assertError $
fieldInputText "type" $ runTrainerM $ getForm "f" pokemonForm

0 comments on commit bdf5c3b

Please sign in to comment.