Stack项目Windows CI中upload集成测试问题分析与解决

背景介绍

在Stack项目的持续集成(CI)环境中，当尝试从lts-22.0升级到lts-22.6版本时，Windows平台上的upload集成测试出现了失败。测试失败表现为HTTP连接被拒绝的错误，具体错误信息显示在尝试连接到本地Hackage模拟服务器时发生了"Connection refused (WSAECONNREFUSED)"错误。

问题现象

测试日志显示，当测试用例尝试通过HTTP POST方法向localhost:12415发送请求时，连接被拒绝。值得注意的是，这个问题仅在CI环境中出现，在本地Windows 11环境中测试能够正常通过，但会触发Windows安全中心的网络保护提示。

根本原因分析

经过深入调查，发现问题源于测试代码中设置的服务器启动等待时间不足。测试代码中使用了一个名为withFakeHackage的函数来启动一个模拟的Hackage服务器，该函数在服务器启动后仅等待2秒钟(2000000微秒)就开始执行测试逻辑。

在CI环境中，由于资源限制和系统负载等因素，2秒钟的等待时间可能不足以确保模拟服务器完全启动并准备好接受连接。特别是在Windows CI环境中，系统可能需要额外的时间来完成网络栈的初始化和安全策略的检查。

解决方案

将等待时间从2秒增加到3秒后，问题得到解决。这个简单的调整给予了系统足够的时间来完成所有必要的初始化工作，确保测试开始时服务器已经处于可连接状态。

技术细节

测试代码的关键部分如下：

withFakeHackage :: IO a -> IO a
withFakeHackage act = do
    stackEnv <- stackExe
    -- 构建模拟服务器的依赖
    stack $ withNetworkArgs ++ ["FakeHackageStart.hs"]
    -- 启动模拟服务器
    withCreateProcess (proc stackEnv $ withNetworkArgs ++ ["FakeHackage.hs"]) $ \_ _ _ _ -> do
        -- 等待服务器启动
        threadDelay 3000000 -- 从2000000增加到3000000微秒(3秒)
        act
  where
    withNetworkArgs = ["runghc", "--package", "network"]

经验总结

1. 在CI环境中，特别是Windows平台，系统资源的分配和初始化可能需要比本地开发环境更长的时间
2. 网络服务的启动时间应该考虑环境差异，给予足够的缓冲
3. 对于关键的网络操作，实现更健壮的连接重试机制可能比简单的固定延迟更可靠
4. Windows网络保护策略可能会影响本地网络服务的可用性，这在测试设计中需要考虑

这个问题提醒我们在编写跨平台测试时，需要充分考虑不同环境下的性能特点和系统行为差异，特别是在涉及网络操作的情况下。