summaryrefslogtreecommitdiff
path: root/tests/Tests/Arbitrary.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-04-29 18:14:39 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-04-29 18:14:39 -0700
commitb6ae5d5e99a1575fcba3512b3a82ff77773a80ec (patch)
tree0de263882239682f89f200dcb17883d0bef04977 /tests/Tests/Arbitrary.hs
parentd6ef7a465e0d53f939680fca465d7daec17c7cb9 (diff)
ADded SmallCaps to Arbitrary instance.
Diffstat (limited to 'tests/Tests/Arbitrary.hs')
-rw-r--r--tests/Tests/Arbitrary.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Tests/Arbitrary.hs b/tests/Tests/Arbitrary.hs
index 31c0cb46a..82346d65f 100644
--- a/tests/Tests/Arbitrary.hs
+++ b/tests/Tests/Arbitrary.hs
@@ -49,7 +49,7 @@ arbInline n = frequency $ [ (60, liftM Str realString)
, (10, liftM Strikeout $ arbInlines (n-1))
, (10, liftM Superscript $ arbInlines (n-1))
, (10, liftM Subscript $ arbInlines (n-1))
--- , (10, liftM SmallCaps $ arbInlines (n-1))
+ , (10, liftM SmallCaps $ arbInlines (n-1))
, (10, do x1 <- arbitrary
x2 <- arbInlines (n-1)
return $ Quoted x1 x2)