[libvirt] [PATCH TCK] Add a minimal test case for CPU hotplug
Daniel P. Berrange
berrange at redhat.com
Thu Apr 22 17:10:15 UTC 2010
On Thu, Apr 22, 2010 at 10:41:34AM -0600, Eric Blake wrote:
> On 04/22/2010 10:24 AM, Daniel P. Berrange wrote:
> > Adds a minimal test case which verifies that it is possible to
> > set the CPU count to max, and then back to the min. This really
> > needs libguestfs integration to validate that the guest sees the
> > change
> > ---
> > scripts/domain/130-cpu-hotplug.t | 78 ++++++++++++++++++++++++++++++++++++++
> > 1 files changed, 78 insertions(+), 0 deletions(-)
> > create mode 100644 scripts/domain/130-cpu-hotplug.t
> >
> > diff --git a/scripts/domain/130-cpu-hotplug.t b/scripts/domain/130-cpu-hotplug.t
> > new file mode 100644
> > index 0000000..2976f2d
> > --- /dev/null
> > +++ b/scripts/domain/130-cpu-hotplug.t
> > @@ -0,0 +1,78 @@
> > +# -*- perl -*-
> > +#
> > +# Copyright (C) 2009-2010 Red Hat, Inc.
> > +# Copyright (C) 2009-2010 Daniel P. Berrange
>
> Since it's new, should the copyright be just 2010?
Yep.
>
> > +diag "Creating a new transient domain";
> > +my $dom;
> > +ok_domain(sub { $dom = $conn->create_domain($xml) }, "created transient domain object");
> > +
> > +my $max;
> > +lives_ok(sub { $max = $dom->get_max_vcpus() }, "queried max vcpus");
> > +
> > +SKIP: {
> > + skip "SMP guests not supported", 4 unless $max > 1;
> > +
> > + diag "Increasing CPU count to max";
> > + lives_ok(sub { $dom->set_vcpus($max); }, "set vcpus to $max");
> > +
> > + my $info = $dom->get_info();
> > +
> > + is($info->{nrVirtCpu}, $max, "cpu count $info->{nrVirtCpu} is $max");
> > +
> > + diag "Decreasing CPU count to min";
> > + lives_ok(sub { $dom->set_vcpus(1); }, "set vcpus to 1");
> > +
> > + $info = $dom->get_info();
> > + is($info->{nrVirtCpu}, 1, "cpu count $info->{nrVirtCpu} is 1");
>
> Do you want to also test for an error message on setting it out of
> range, like to 0?
That's a good idea. I added 2 further tests for 0 and $max + 1 to assert
that errors are raised.
Daniel
--
|: Red Hat, Engineering, London -o- http://people.redhat.com/berrange/ :|
|: http://libvirt.org -o- http://virt-manager.org -o- http://deltacloud.org :|
|: http://autobuild.org -o- http://search.cpan.org/~danberr/ :|
|: GnuPG: 7D3B9505 -o- F3C9 553F A1DA 4AC2 5648 23C1 B3DF F742 7D3B 9505 :|
More information about the libvir-list
mailing list