From ab8191bb781fff6d791d2248ee28e471ffa29ddf Mon Sep 17 00:00:00 2001
From: Shinmera <shinmera@tymoon.eu>
Date: Thu, 24 Nov 2022 23:57:21 +0100
Subject: [PATCH] Fix bad child status set.

Fixes #36
---
 test.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test.lisp b/test.lisp
index 79fd863..8555860 100644
--- a/test.lisp
+++ b/test.lisp
@@ -211,7 +211,7 @@
         for child in (children test)
         for subresult = (result-for-testable child context)
         do (when (find child skipped)
-             (setf (status child) :skipped))
+             (setf (status subresult) :skipped))
            (eval-in-context context subresult)))
 
 (defun resolve-dependency-combination (combination test)