t/unit_fixture/CXGN/DbStats.t

   1
   2
   3 use strict;
   4
   5 use lib 't/lib';
   6
   7 use Test::More;
   8 use Data::Dumper;
   9 use SGN::Test::Fixture;
  10
  11 use CXGN::DbStats;
  12
  13 my $f = SGN::Test::Fixture->new();
  14
  15 my $dbs = CXGN::DbStats->new( { dbh => $f->dbh() });
  16
  17 my $types = $dbs->trial_types();
  18
  19 my $trial_count_by_breeding_program = $dbs->trial_count_by_breeding_program();
  20
  21 my $phenotype_count_by_breeding_program = $dbs->phenotype_count_by_breeding_program();
  22
  23 my $traits = $dbs->traits();
  24
  25 is($traits->[0]->[1], 999, "spot check trait result");
  26
  27 print STDERR "Traits: ".Dumper($traits);
  28
  29 my $stocks = $dbs->stocks();
  30
  31 is($stocks->[0]->[1], 1955, "spot check stock result");
  32
  33 print STDERR "Stocks: ".Dumper($stocks);
  34
  35 my $projects = $dbs->projects();
  36
  37 is($projects, 30, "project check");
  38
  39 print STDERR "Projects: ".Dumper($projects);
  40
  41 my $activity = $dbs->activity();
  42
  43 print STDERR "Activity: ".Dumper($activity);
  44
  45 my $stock_stats = $dbs->stock_stats();
  46
  47 is($stock_stats->[0]->[1], 479, "stock stats check");
  48
  49 print STDERR "Stock stats: ".Dumper($stock_stats);
  50
  51 my $accession_count_by_breeding_program = $dbs->accession_count_by_breeding_program();
  52
  53 is($accession_count_by_breeding_program->[0]->[1], 45, "accession by breeding program test");
  54
  55 print STDERR "Accession_count : ".Dumper($accession_count_by_breeding_program);
  56
  57 my $accession_count_by_breeding_program_without_trials = $dbs->accession_count_by_breeding_program_without_trials();
  58
  59 is(scalar(@$accession_count_by_breeding_program_without_trials), 0, "accessions without trials");
  60
  61 print STDERR "Accession_count without trials: ".Dumper($accession_count_by_breeding_program_without_trials);
  62
  63 my $plot_count_by_breeding_program = $dbs->plot_count_by_breeding_program();
  64
  65 is($plot_count_by_breeding_program->[0]->[1], 5456, "plot count by breeding program check");
  66
  67 print STDERR "Plot count : ".Dumper($plot_count_by_breeding_program);
  68
  69 my $germplasm_count_with_pedigree = $dbs->germplasm_count_with_pedigree();
  70
  71 print STDERR "Germplasm count with pedigrees: ".Dumper($germplasm_count_with_pedigree);
  72
  73 my $germplasm_count_with_phenotypes = $dbs->germplasm_count_with_phenotypes();
  74
  75 print STDERR "Germplasm_count_with_phenotypes : ".Dumper($germplasm_count_with_phenotypes);
  76
  77 my $germplasm_count_with_genotypes = $dbs->germplasm_count_with_genotypes();
  78
  79 print STDERR "Germpalsm count with genotypes: ".Dumper($germplasm_count_with_genotypes);
  80
  81 my $phenotype_count_per_trial = $dbs->phenotype_count_per_trial();
  82
  83 print STDERR "PHenotype count per trial: ".Dumper($phenotype_count_per_trial);
  84
  85 done_testing();