Changeset 380

Timestamp:

06/10/04 23:25:32 (5 years ago)

Author:

kake

Message:

Ensure RDF has content-type of text/plain.

Location:

trunk

Files:

• lib/OpenGuides.pm (modified) (1 diff)
• t/53_show_index.t (modified) (3 diffs)

trunk/lib/OpenGuides.pm

@@ -454 +454 @@
                         vars     => $args{tt_vars},
     );
-    $output_conf{content_type} = $args{content_type} if $args{content_type};
-    return OpenGuides::Template->output( %output_conf );
+    if ( $args{content_type} ) {
+        $output_conf{content_type} = "";
+        my $output = "Content-Type: $args{content_type}\n\n"
+                     . OpenGuides::Template->output( %output_conf );
+    } else {
+        return OpenGuides::Template->output( %output_conf );
+    }
 }
 

trunk/t/53_show_index.t

@@ -3 +3 @@
 use Config::Tiny;
 use OpenGuides;
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 eval { require DBD::SQLite; };
@@ -9 +9 @@
 
 SKIP: {
-    skip "DBD::SQLite not installed - no database to test with", 3
+    skip "DBD::SQLite not installed - no database to test with", 4
       unless $have_sqlite;
 
@@ -42 +42 @@
     };
     is( $@, "", "->show_index doesn't die" );
+    $output = $guide->show_index(
+                                  type          => "category",
+                                  value         => "Alpha",
+                                  return_output => 1,
+                                  format        => "rdf"
+                                );
+    like( $output, qr|Content-Type: text/plain|,
+          "RDF output gets content-type of text/plain" );
 }