~ubuntu-branches/ubuntu/vivid/drizzle/vivid-proposed

« back to all changes in this revision

Viewing changes to tests/test_tools/randgen/unit/DBDVersion.pm

• browse files at revision 1.1.7
• compare with another revision
• download diff
• download tarball
• view history from revision 1.1.7

Show diffs side-by-side

added

removed

tests/test_tools/randgen/unit/DBDVersion.pm

 

1

# Copyright (c) 2010, Oracle and/or its affiliates. All rights reserved. 

 

2

# Use is subject to license terms.

 

3

#

 

4

# This program is free software; you can redistribute it and/or modify

 

5

# it under the terms of the GNU General Public License as published by

 

6

# the Free Software Foundation; version 2 of the License.

 

7

#

 

8

# This program is distributed in the hope that it will be useful, but

 

9

# WITHOUT ANY WARRANTY; without even the implied warranty of

 

10

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

 

11

# General Public License for more details.

 

12

#

 

13

# You should have received a copy of the GNU General Public License

 

14

# along with this program; if not, write to the Free Software

 

15

# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301

 

16

# USA

 

17

 

 

18

# Basic grammar test

 

19

# Walk through all the grammars and feed them to the Grammar

 

20

# constructor. 

 

21

#

 

22

package DBDVersion;

 

23

use base qw(Test::Unit::TestCase);

 

24

use lib 'lib';

 

25

use GenTest;

 

26

use GenTest::Constants;

 

27

use GenTest::Executor;

 

28

use DBI;

 

29

 

 

30

use Data::Dumper;

 

31

 

 

32

sub new {

 

33

    my $self = shift()->SUPER::new(@_);

 

34

    # your state for fixture here

 

35

    return $self;

 

36

}

 

37

 

 

38

my $executor;

 

39

sub set_up {

 

40

}

 

41

 

 

42

sub tear_down {

 

43

    # clean up after test

 

44

}

 

45

 

 

46

sub test_dbd {

 

47

    my $self = shift;

 

48

 

 

49

    my $version = DBI->installed_versions->{'DBD::mysql'};

 

50

 

 

51

    say("DBD::mysql Version ".$version);

 

52

    

 

53

    $self->assert_not_null($version);

 

54

}

 

55

 

 

56

1;

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1