test-defaults.pl

   1 #!/usr/bin/perl
   2
   3 use lib '.';
   4 use strict;
   5 use warnings;
   6
   7 use PVE::Cluster qw(cfs_read_file);
   8
   9 use PVE::QemuDefaults;
  10
  11 use Data::Dumper;
  12
  13 #my $cfg = cfs_read_file('qemu-defaults.cfg');
  14
  15 my $cfg = PVE::QemuDefaults::load_defaults();
  16
  17 print Dumper($cfg);