From 2821407d37d373ad6118a30fb73624737d04098e Mon Sep 17 00:00:00 2001
From: David Parrish <daveparrish@tutanota.com>
Date: Thu, 14 Nov 2019 17:29:05 -0500
Subject: [PATCH] Fix test for S17 Vnish devices

---
 test/Spec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Spec.hs b/test/Spec.hs
index 69ea0bb..8c404c0 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -200,7 +200,7 @@ json = testGroup "json tests"
     ((decodeReply exampleReplyS17Vnish) /= Nothing) @? "exampleReply could not be decoded"
   , testCase "Can get stats (s17 vnish)" $
       let Just x = decodeReply exampleReplyS17Vnish
-      in (getStats x) @?= (Right $ Stats (Just $ Watt 2385)
+      in (getStats x) @?= (Right $ Stats (Just $ Watt 2800)
                            [ ("temp1"::T.Text, 55::Rational)
                            , ("temp2"::T.Text, 57)
                            , ("temp3", 56)