test(hass): capture wall lamp adaptive lighting regression

Author: edmundmiller

modules/services/hass/_tests/eval-automations.nix

@@ -19,6 +19,7 @@ let
   inherit (pkgs.lib) hasInfix;
 
   haConfig = nixosConfig.config.services.home-assistant.config;
+  adaptiveLighting = haConfig.adaptive_lighting or [ ];
   automations = haConfig.automation;
   scenes = haConfig.scene;
   scripts = haConfig.script;
@@ -37,6 +38,13 @@ let
     in
     if matches == [ ] then null else head matches;
 
+  findAdaptiveLighting =
+    name:
+    let
+      matches = filter (c: (c.name or null) == name) adaptiveLighting;
+    in
+    if matches == [ ] then null else head matches;
+
   hasHomeAssistantStartTrigger =
     triggers: any (t: (t.platform or null) == "homeassistant" && (t.event or null) == "start") triggers;
 
@@ -181,6 +189,7 @@ let
   goodMorningScene = findScene "Good Morning";
   midMorningScene = findScene "Mid-morning";
   sundownScene = findScene "Sundown";
+  livingSpaceAdaptiveLighting = findAdaptiveLighting "Living Space";
 
   assertions = initialStateAssertions ++ [
     {
@@ -468,6 +477,13 @@ let
       test = (midMorningScene.entities."light.essentials_a19_a60_5" or null) == "off";
       msg = "Mid-morning scene doesn't turn off wall lamp";
     }
+    {
+      test =
+        livingSpaceAdaptiveLighting != null
+        && builtins.elem "light.essentials_a19_a60_5" (livingSpaceAdaptiveLighting.lights or [ ]);
+      expectedFailure = true;
+      msg = "Living Space Adaptive Lighting must include wall lamp to avoid stale flash colors";
+    }
     {
       test =
         let
@@ -486,8 +502,12 @@ let
     }
   ];
 
-  failures = filter (a: !a.test) assertions;
-  failureMessages = map (a: "  FAIL: ${a.msg}") failures;
+  failures = filter (
+    a: (!a.test && !(a.expectedFailure or false)) || (a.test && (a.expectedFailure or false))
+  ) assertions;
+  failureMessages = map (
+    a: if a.expectedFailure or false then "  XPASS: ${a.msg}" else "  FAIL: ${a.msg}"
+  ) failures;
 
   resultText =
     if failures == [ ] then