R Under development (unstable) (2025-09-25 r88874 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # Copyright 2014-2022 Google Inc. All rights reserved.
> #
> # Licensed under the Apache License, Version 2.0 (the "License");
> # you may not use this file except in compliance with the License.
> # You may obtain a copy of the License at
> #
> # http://www.apache.org/licenses/LICENSE-2.0
> #
> # Unless required by applicable law or agreed to in writing, software
> # distributed under the License is distributed on an "AS IS" BASIS,
> # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
> # See the License for the specific language governing permissions and
> # limitations under the License.
> 
> # Unit test driver for the CausalImpact package.
> #
> # Author: kbrodersen@google.com (Kay Brodersen)
> 
> library(CausalImpact)
Loading required package: bsts
Loading required package: BoomSpikeSlab
Loading required package: Boom

Attaching package: 'Boom'

The following object is masked from 'package:stats':

    rWishart


Attaching package: 'BoomSpikeSlab'

The following object is masked from 'package:stats':

    knots

Loading required package: zoo

Attaching package: 'zoo'

The following objects are masked from 'package:base':

    as.Date, as.Date.numeric

Loading required package: xts

Attaching package: 'bsts'

The following object is masked from 'package:BoomSpikeSlab':

    SuggestBurn

> library(testthat)
> 
> # Open graphics device and run tests
> plot.file <- tempfile("CausalImpact", fileext = ".png")
> png(plot.file)
> testthat::test_check("CausalImpact")
[ FAIL 0 | WARN 0 | SKIP 0 | PASS 738 ]
> dev.off()
null device 
          1 
> 
> proc.time()
   user  system elapsed 
  27.53    1.14   28.67