| Lines 2-34
          
      
      
        Link Here | 
        
          | 2 |  | 2 |  | 
        
          | 3 | # some simple tests of the elements of C4::External::BakerTaylor that do not require a valid username and password | 3 | # some simple tests of the elements of C4::External::BakerTaylor that do not require a valid username and password | 
        
          | 4 |  | 4 |  | 
          
            
              | 5 | use strict; | 5 | use Modern::Perl; | 
            
              | 6 | use warnings; |  |  | 
        
          | 7 |  | 6 |  | 
        
          | 8 | use Test::More tests => 9; | 7 | use Test::More tests => 9; | 
            
              |  |  | 8 | use t::lib::Mocks; | 
        
          | 9 |  | 9 |  | 
        
          | 10 | BEGIN { | 10 | BEGIN { | 
        
          | 11 |         use_ok('C4::External::BakerTaylor'); | 11 |         use_ok('C4::External::BakerTaylor'); | 
        
          | 12 | } | 12 | } | 
        
          | 13 |  | 13 |  | 
          
            
              | 14 | # for testing, to avoid using C4::Context | 14 | # test with mocked prefs | 
            
              | 15 | my $username="testing_username"; | 15 | my $username= "testing_username"; | 
            
              | 16 | my $password="testing_password"; | 16 | my $password= "testing_password"; | 
            
              |  |  | 17 | my $link_url = "http://wrongexample.com?ContentCafe.aspx?UserID=$username"; | 
        
          | 17 |  | 18 |  | 
          
            
              | 18 | # taken from C4::External::BakerTaylor::initialize | 19 | t::lib::Mocks::mock_preference( 'BakerTaylorUsername', $username ); | 
            
              | 19 | my $image_url = "http://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=$username&Password=$password&Options=Y&Return=T&Type=S&Value="; | 20 | t::lib::Mocks::mock_preference( 'BakerTaylorPassword', $password ); | 
            
              | 20 |  | 21 | t::lib::Mocks::mock_preference( 'BakerTaylorBookstoreURL', $link_url ); | 
            
              | 21 | # test without initializing |  |  | 
            
              | 22 | is( C4::External::BakerTaylor::image_url(), undef, "testing image url pre initilization"); | 
            
              | 23 | is( C4::External::BakerTaylor::link_url(), undef, "testing link url pre initilization"); | 
            
              | 24 | is( C4::External::BakerTaylor::content_cafe_url(""), undef, "testing content cafe url pre initilization"); | 
            
              | 25 | is( C4::External::BakerTaylor::http_jacket_link(""), undef, "testing http jacket link pre initilization"); | 
            
              | 26 | is( C4::External::BakerTaylor::availability(""), undef, "testing availability pre initilization"); | 
        
          | 27 |  | 22 |  | 
          
            
              | 28 | # intitialize | 23 | my $image_url = "http://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=$username&Password=$password&Options=Y&Return=T&Type=S&Value="; | 
            
              | 29 | C4::External::BakerTaylor::initialize($username, $password, "link_url"); | 24 | my $content_cafe = "http://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$username&Password=$password&Options=Y&ItemKey="; | 
        
          | 30 |  | 25 |  | 
          
            
              | 31 | # testing basic results | 26 | is( C4::External::BakerTaylor::image_url(), $image_url, "testing default image url"); | 
        
          | 32 | is( C4::External::BakerTaylor::image_url("aa"), $image_url."aa", "testing image url construction"); | 27 | is( C4::External::BakerTaylor::image_url("aa"), $image_url."aa", "testing image url construction"); | 
          
            
              | 33 | is( C4::External::BakerTaylor::link_url("bb"), "link_urlbb", "testing link url construction"); | 28 | is( C4::External::BakerTaylor::link_url(), $link_url, "testing default link url"); | 
            
              | 34 | is( C4::External::BakerTaylor::content_cafe_url("cc"), "http://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$username&Password=$password&Options=Y&ItemKey=cc", "testing content cafe url  construction"); | 29 | is( C4::External::BakerTaylor::link_url("bb"), "${link_url}bb", "testing link url construction"); | 
            
              |  |  | 30 | is( C4::External::BakerTaylor::content_cafe_url(""), $content_cafe, "testing default content cafe url"); | 
            
              | 31 | is( C4::External::BakerTaylor::content_cafe_url("cc"), "${content_cafe}cc", "testing content cafe url construction"); | 
            
              | 32 | is( C4::External::BakerTaylor::http_jacket_link(""), undef, "testing empty http jacket link"); | 
            
              | 33 | is( C4::External::BakerTaylor::availability(""), undef, "testing empty availability"); | 
            
              | 35 | -  |  |  |