From 666674327f009e9b1013218fc384f193b64c6997 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunt Date: Sun, 14 Dec 2025 22:39:18 -0800 Subject: Adds unit tests --- tst/tagged_object.test.ts | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 tst/tagged_object.test.ts (limited to 'tst/tagged_object.test.ts') diff --git a/tst/tagged_object.test.ts b/tst/tagged_object.test.ts new file mode 100644 index 0000000..51b6c81 --- /dev/null +++ b/tst/tagged_object.test.ts @@ -0,0 +1,16 @@ +import { isObject, isTagged } from '../lib/index'; + +describe('types/tagged + types/object', () => { + test('isObject excludes null/arrays', () => { + expect(isObject({})).toBe(true); + expect(isObject([])).toBe(false); + expect(isObject(null)).toBe(false); + expect(isObject('x')).toBe(false); + }); + + test('isTagged checks _tag field', () => { + expect(isTagged({ _tag: 'X' }, 'X')).toBe(true); + expect(isTagged({ _tag: 'Y' }, 'X')).toBe(false); + expect(isTagged({}, 'X')).toBe(false); + }); +}); -- cgit v1.2.3-70-g09d2