diff --git a/src-literatetests/10-tests.blt b/src-literatetests/10-tests.blt
index d12ba21..3a188de 100644
--- a/src-literatetests/10-tests.blt
+++ b/src-literatetests/10-tests.blt
@@ -363,6 +363,12 @@ data Foo = Bar
   deriving anyclass (Show, Eq, Monad, Functor)
   deriving newtype Show
   deriving newtype (Traversable, Foldable)
+
+#test record deriving via
+data Foo = Bar
+  { foo  :: Baz
+  , bars :: Bizzz
+  }
   deriving ToJSON via (SomeType)
   deriving (ToJSON, FromJSON) via (SomeType)