add one more test for unbound generics

examples/acceptance_tests/089/lib/tests.ak

@@ -0,0 +1,40 @@
+use aiken/cbor
+use aiken/transaction.{Datum, InlineDatum, NoDatum, Output}
+use aiken/transaction/credential.{Address, VerificationKeyCredential}
+use aiken/transaction/value.{from_lovelace}
+
+type SmallOracleState {
+  Thing(Int)
+}
+
+fn create_output(
+  payment_key: ByteArray,
+  _thing,
+  value: Int,
+  other_thing,
+  datum: Datum,
+  script_ref: Option<ByteArray>,
+) -> Output {
+  let x =
+    Output {
+      address: Address {
+        payment_credential: VerificationKeyCredential(payment_key),
+        stake_credential: None,
+      },
+      value: from_lovelace(value),
+      datum,
+      reference_script: script_ref,
+    }
+  x
+}
+
+fn get_inline_datum(output: Output) -> Data {
+  expect InlineDatum(datum) = output.datum
+  datum
+}
+
+test get_inline_datum_test() {
+  let output = create_output(#"00", True, 10, None, NoDatum, None)
+  expect small: SmallOracleState = get_inline_datum(output)
+  True
+}