From da40997da40341a9aa717f63a205a4eefa0d4642 Mon Sep 17 00:00:00 2001
From: Steve McIntyre <steve@einval.com>
Date: Wed, 6 Jun 2018 00:07:27 +0100
Subject: Update test wrapper to test saving the cache to disk

---
 vcs-test.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'vcs-test.pl')

diff --git a/vcs-test.pl b/vcs-test.pl
index 05a27bcf8c1..8fc8905017b 100755
--- a/vcs-test.pl
+++ b/vcs-test.pl
@@ -9,7 +9,6 @@ use Digest::MD5 'md5_hex';
 
 # These modules reside under webwml/Perl
 use lib ($0 =~ m|(.*)/|, $1 or ".") ."/Perl";
-use Local::Cvsinfo;
 use Local::VCS;
 use Webwml::TransCheck;
 use Webwml::Langs;
@@ -39,11 +38,14 @@ my $ret;
 
 my $VCS = Local::VCS->new();
 print "Initialising VCS cache for performance\n";
+
+# Deliberately call these multiple times to validate
 $VCS->cache_file($file);
 $VCS->cache_file($file);
 $VCS->cache_repo();
 $VCS->cache_repo();
 $VCS->cache_file($file);
+$VCS->save_cache_to_database();
 print " ... done!\n";
 
 ########
-- 
cgit v1.2.3