t/04-start-stop.t

   1 #! perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6 use Statistics::R;
   7 use Cwd;
   8
   9 my $R;
  10
  11 my $initial_dir = cwd;
  12
  13 ok $R = Statistics::R->new();
  14
  15 is $R->is_started, 0;
  16
  17 is $R->is_shared, 0;
  18
  19 ok $R->stop();
  20
  21 ok $R->stop();
  22
  23 ok $R->start();
  24
  25 is $R->is_started, 1;
  26
  27 is $R->is_shared, 0;
  28
  29 ok $R->start();
  30
  31 is cwd, $initial_dir; # Bug RT #6724 and #70307
  32
  33 ok $R->restart();
  34
  35 ok $R->stop();
  36
  37 ok $R->start( shared => 1);
  38
  39 is $R->is_shared, 1;
  40
  41 ok $R->stop();
  42
  43 is cwd, $initial_dir; # Bug RT #6724 and #70307
  44
  45 done_testing;