Open-ILS/src/support-scripts/test-scripts/container.pl

   1 #!/usr/bin/perl
   2
   3 #----------------------------------------------------------------
   4 # Code for testing the container API
   5 #----------------------------------------------------------------
   6
   7 require '../oils_header.pl';
   8
   9 my $config              = shift;
  10 my $username    = shift || 'admin';
  11 my $password    = shift || 'open-ils';
  12
  13 osrf_connect($config);
  14 oils_login($username, $password);
  15 oils_fetch_session($authtoken);
  16
  17 my %types;
  18 my $meth = 'open-ils.storage.direct.container';
  19 $types{'biblio'} = "biblio_record_entry_bucket";
  20 $types{'callnumber'} = "call_number_bucket";
  21 $types{'copy'} = "copy_bucket";
  22 $types{'user'} = "user_bucket";
  23
  24 my %containers;
  25
  26 containers_create();
  27 containers_delete();
  28
  29
  30 sub containers_create {
  31
  32         for my $type ( keys %types ) {
  33                 my $bucket = "Fieldmapper::container::" . $types{$type};
  34                 $bucket = $bucket->new;
  35                 $bucket->owner($user->id);
  36                 $bucket->name("TestBucket");
  37                 $bucket->btype("TestType");
  38
  39                 my $resp = simplereq($ACTOR,
  40                         'open-ils.actor.container.bucket.create',
  41                         $authtoken, $type, $bucket );
  42
  43                 oils_event_die($resp);
  44                 printl("Created new $type bucket with id $resp");
  45                 $containers{$type} = $resp;
  46         }
  47 }
  48
  49 sub containers_delete {
  50         for my $type (keys %containers) {
  51                 my $id = $containers{$type};
  52
  53                 my $resp = simplereq( $ACTOR,
  54                         'open-ils.actor.container.bucket.delete',
  55                         $authtoken, $type, $id );
  56
  57                 oils_event_die($resp);
  58                 printl("Deleted bucket $id");
  59         }
  60 }
  61
  62