diff options
author | Steve McIntyre <steve@einval.com> | 2018-06-06 00:07:27 +0100 |
---|---|---|
committer | Steve McIntyre <steve@einval.com> | 2018-06-06 00:07:27 +0100 |
commit | da40997da40341a9aa717f63a205a4eefa0d4642 (patch) | |
tree | 102fc1cfd1900f8e1d0c994969178673e3d9235f /vcs-test.pl | |
parent | 3912e3865cbaf05265db06203b2148b8d2cb28f4 (diff) |
Update test wrapper to test saving the cache to disk
Diffstat (limited to 'vcs-test.pl')
-rwxr-xr-x | vcs-test.pl | 4 |
1 files changed, 3 insertions, 1 deletions
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"; ######## |