From 47cc098450b726d49471eab75b08df89c5c75b6c Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 9 Aug 2024 17:02:17 +1200
Subject: [PATCH] Commit missing support module.

---
 .../Text/Font/Choose/Internal/Test.hs         | 32 +++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 lib/Graphics/Text/Font/Choose/Internal/Test.hs

diff --git a/lib/Graphics/Text/Font/Choose/Internal/Test.hs b/lib/Graphics/Text/Font/Choose/Internal/Test.hs
new file mode 100644
index 0000000..9ba13e2
--- /dev/null
+++ b/lib/Graphics/Text/Font/Choose/Internal/Test.hs
@@ -0,0 +1,32 @@
+{-# LANGUAGE CApiFFI #-}
+-- | Internal C routines which need to be QuickCheck tested.
+module Graphics.Text.Font.Choose.Internal.Test where
+
+import Foreign.C.String (CString)
+import Foreign.Ptr (Ptr)
+import Data.MessagePack (MessagePack)
+import Graphics.Text.Font.Choose.Internal.FFI
+
+-- | A C test function which transcodes data into & out of FontConfig datastructures.
+type RoundTrip = CString -> Int -> Ptr Int -> CString
+-- | Test a roundtrip function, the output should be equal to the input
+-- (wrapped in a Maybe type).
+roundtrip :: MessagePack a => RoundTrip -> a -> Maybe a
+roundtrip fn = fromMessage . withMessage fn
+
+-- | C test function for StrSet type.
+foreign import capi "transcode.h" testStrSet :: RoundTrip
+-- | C test function for CharSet type.
+foreign import capi "transcode.h" testCharSet :: RoundTrip
+-- | C test function for LangSet type.
+foreign import capi "transcode.h" testLangSet :: RoundTrip
+-- | C test function for Range type.
+foreign import capi "transcode.h" testRange :: RoundTrip
+-- | C test function for Matrix type.
+foreign import capi "transcode.h" testMatrix :: RoundTrip
+-- | C test function for Value type.
+foreign import capi "transcode.h" testValue :: RoundTrip
+-- | C test function for Pattern type.
+foreign import capi "transcode.h" testPattern :: RoundTrip
+-- | C test function for FontSet type.
+foreign import capi "transcode.h" testFontSet :: RoundTrip
-- 
2.30.2