Skip to content

Commit

Permalink
Removed WIP testing
Browse files Browse the repository at this point in the history
  • Loading branch information
evanlauer1 committed May 22, 2024
1 parent 524faea commit 6da0bef
Showing 1 changed file with 1 addition and 17 deletions.
18 changes: 1 addition & 17 deletions instrumentation/http-client/test/Spec.hs
Original file line number Diff line number Diff line change
@@ -1,19 +1,3 @@
import Network.HTTP.Client (Request (requestHeaders), defaultRequest)
import qualified OpenTelemetry.Context as Context
import OpenTelemetry.Instrumentation.HttpClient.Raw (httpTracerProvider, instrumentRequest)
import OpenTelemetry.Propagator
import OpenTelemetry.Trace.Core (getTracerProviderPropagators, getTracerTracerProvider)
import Test.Hspec


main :: IO ()
main = hspec $ do
describe "OpenTelemetry.Instrumentation.HttpClient" $ do
describe "Raw" $ do
describe "instrumentRequest" $ do
specify "Request has the correct attributes" $ do
request <- instrumentRequest mempty Context.empty defaultRequest
tracer <- httpTracerProvider
context <- extract (getTracerProviderPropagators $ getTracerTracerProvider $ tracer) (requestHeaders request) Context.empty
let maybeAttributes = Context.lookupSpan context
pending
main = putStrLn "Test suite not yet implemented"

0 comments on commit 6da0bef

Please sign in to comment.