Add tests

test/Quasar/DisposableSpec.hs

@@ -88,11 +88,18 @@ spec = parallel $ do
         attachDisposeAction_ resourceManager $ toAwaitable avar <$ putAsyncVar_ avar ()
       pure () :: IO ()
 
+    it "re-throws an exception" $ do
+      shouldThrow
+        do
+          withResourceManager \_ ->
+            throwIO TestException
+        \TestException -> True
+
     it "re-throws an exception from a dispose action" $ do
       shouldThrow
         do
           withResourceManager \resourceManager ->
-            attachDisposeAction resourceManager $ throwIO $ TestException
+            attachDisposeAction resourceManager $ throwIO TestException
         \TestException -> True
 
     it "can attach an disposable that is disposed asynchronously" $ do

test/Quasar/ObservableSpec.hs

 module Quasar.ObservableSpec (spec) where
 
-import Quasar.Observable
-
-import Control.Monad (void)
 import Data.IORef
-import Prelude
+import Quasar.Prelude
+import Quasar.Disposable
+import Quasar.Observable
 import Test.Hspec
 
 
 spec :: Spec
 spec = do
+  observableSpec
   mergeObservableSpec
 
+observableSpec :: Spec
+observableSpec = parallel do
+  describe "Observable" do
+    it "works" $ io do
+      shouldReturn
+        do
+          withOnResourceManager do
+            observeWhile (pure () :: Observable ()) toObservableUpdate
+        ()
+
+
 mergeObservableSpec :: Spec
 mergeObservableSpec = do
   describe "mergeObservable" $ parallel $ do