bluecloth 2.0.0

data/spec/data/re-overflow2.txt

@@ -0,0 +1,281 @@
+<strong>iFotobilder</strong> will be an iPhoto export plugin that will let you manage your Fotobilder pictures through iPhoto.
+
+## Getting Started
+
+Since iPhoto's APIs aren't public, and because my Objective C is extremely rusty, I wanted a couple of examples of other people's plugins before I dove into this.
+
+Here's what I found:
+
+* [Writing Plugins for Cocoa][1]
+
+[1]: http://www.stone.com/The_Cocoa_Files/Writing_PlugIns.html
+
+## The iPhoto Export API
+
+Using the `class-dump` tool, I dumped the export API: 
+
+	/*
+	 *     Generated by class-dump 3.0.
+	 *
+	 *     class-dump is Copyright (C) 1997-1998, 2000-2001, 2004 by Steve Nygard.
+	 */
+	
+	/*
+	 * File: /Applications/iPhoto.app/Contents/MacOS/iPhoto
+	 */
+	
+	@protocol ExportImageProtocol
+	- (unsigned int)imageCount;
+	- (BOOL)imageIsPortraitAtIndex:(unsigned int)fp20;
+	- (struct _NSSize)imageSizeAtIndex:(unsigned int)fp16;
+	- (unsigned int)imageFormatAtIndex:(unsigned int)fp16;
+	- (id)imageCaptionAtIndex:(unsigned int)fp16;
+	- (id)imagePathAtIndex:(unsigned int)fp16;
+	- (id)thumbnailPathAtIndex:(unsigned int)fp16;
+	- (id)imageDictionaryAtIndex:(unsigned int)fp16;
+	- (float)imageAspectRatioAtIndex:(unsigned int)fp16;
+	- (id)albumName;
+	- (id)albumMusicPath;
+	- (unsigned int)albumCount;
+	- (unsigned int)albumPositionOfImageAtIndex:(unsigned int)fp16;
+	- (id)window;
+	- (void)enableControls;
+	- (void)disableControls;
+	- (void)clickExport;
+	- (void)startExport;
+	- (void)cancelExport;
+	- (void)cancelExportBeforeBeginning;
+	- (id)directoryPath;
+	- (id)temporaryDirectory;
+	- (BOOL)doesFileExist:(id)fp16;
+	- (BOOL)doesDirectoryExist:(id)fp16;
+	- (BOOL)createDir:(id)fp16;
+	- (id)uniqueSubPath:(id)fp12 child:(id)fp20;
+	- (id)makeUniquePath:(id)fp16;
+	- (id)makeUniqueFilePath:(id)fp12 extension:(id)fp20;
+	- (id)makeUniqueFileNameWithTime:(id)fp16;
+	- (BOOL)makeFSSpec:(id)fp12 spec:(struct FSSpec *)fp20;
+	- (id)pathForFSSpec:(id)fp16;
+	- (BOOL)getFSRef:(struct FSRef *)fp12 forPath:(id)fp16 isDirectory:(BOOL)fp27;
+	- (id)pathForFSRef:(struct FSRef *)fp16;
+	- (unsigned long)countFiles:(id)fp12 descend:(BOOL)fp23;
+	- (unsigned long)countFilesFromArray:(id)fp12 descend:(BOOL)fp23;
+	- (unsigned long long)sizeAtPath:(id)fp12 count:(unsigned long *)fp16 physical:(BOOL)fp27;
+	- (BOOL)isAliasFileAtPath:(id)fp16;
+	- (id)pathContentOfAliasAtPath:(id)fp16;
+	- (id)stringByResolvingAliasesInPath:(id)fp16;
+	- (BOOL)ensurePermissions:(unsigned long)fp12 forPath:(id)fp20;
+	- (id)validFilename:(id)fp16;
+	- (id)getExtensionForImageFormat:(unsigned int)fp16;
+	- (unsigned int)getImageFormatForExtension:(id)fp16;
+	- (struct OpaqueGrafPtr *)uncompressImage:(id)fp12 size:(struct _NSSize)fp16 pixelFormat:(unsigned int)fp24 rotation:(float)fp32;
+	- (void *)createThumbnailer;
+	- (void *)retainThumbnailer:(void *)fp16;
+	- (void *)autoreleaseThumbnailer:(void *)fp16;
+	- (void)releaseThumbnailer:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp16 maxBytes:(unsigned int)fp20 maxWidth:(unsigned int)fp24 maxHeight:(unsigned int)fp32;
+	- (struct _NSSize)thumbnailerMaxBounds:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 quality:(int)fp20;
+	- (int)thumbnailerQuality:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 rotation:(float)fp20;
+	- (float)thumbnailerRotation:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 outputFormat:(unsigned int)fp20;
+	- (unsigned int)thumbnailerOutputFormat:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 outputExtension:(id)fp20;
+	- (id)thumbnailerOutputExtension:(void *)fp16;
+	- (BOOL)thumbnailer:(void *)fp16 createThumbnail:(id)fp20 dest:(id)fp28;
+	- (struct _NSSize)lastImageSize:(void *)fp20;
+	- (struct _NSSize)lastThumbnailSize:(void *)fp16;
+	@end
+	
+	@protocol ExportPluginBoxProtocol
+	- (BOOL)performKeyEquivalent:(id)fp16;
+	@end
+	
+	@protocol ExportPluginProtocol
+	- (id)initWithExportImageObj:(id)fp16;
+	- (id)settingsView;
+	- (id)firstView;
+	- (id)lastView;
+	- (void)viewWillBeActivated;
+	- (void)viewWillBeDeactivated;
+	- (id)requiredFileType;
+	- (BOOL)wantsDestinationPrompt;
+	- (id)getDestinationPath;
+	- (id)defaultFileName;
+	- (id)defaultDirectory;
+	- (BOOL)treatSingleSelectionDifferently;
+	- (BOOL)validateUserCreatedPath:(id)fp16;
+	- (void)clickExport;
+	- (void)startExport:(id)fp16;
+	- (void)performExport:(id)fp16;
+	- (CDAnonymousStruct12 *)progress;
+	- (void)lockProgress;
+	- (void)unlockProgress;
+	- (void)cancelExport;
+	- (id)name;
+	- (id)description;
+	@end
+	
+	@interface ExportController : NSObject
+	{
+	    id mWindow;
+	    id mExportView;
+	    id mExportButton;
+	    id mImageCount;
+	    ExportMgr *mExportMgr;
+	    ExportMgrRec *mCurrentPluginRec;
+	    ProgressController *mProgressController;
+	    BOOL mCancelExport;
+	    NSTimer *mTimer;
+	    NSString *mDirectoryPath;
+	}
+	
+	- (void)awakeFromNib;
+	- (void)dealloc;
+	- (id)currentPlugin;
+	- (id)currentPluginRec;
+	- (void)setCurrentPluginRec:(id)fp12;
+	- (id)directoryPath;
+	- (void)setDirectoryPath:(id)fp12;
+	- (void)show;
+	- (void)_openPanelDidEnd:(id)fp12 returnCode:(int)fp16 contextInfo:(void *)fp20;
+	- (id)panel:(id)fp12 userEnteredFilename:(id)fp16 confirmed:(BOOL)fp20;
+	- (BOOL)panel:(id)fp12 shouldShowFilename:(id)fp16;
+	- (BOOL)panel:(id)fp12 isValidFilename:(id)fp16;
+	- (BOOL)filesWillFitOnDisk;
+	- (void)export:(id)fp12;
+	- (void)_exportThread:(id)fp12;
+	- (void)_exportProgress:(id)fp12;
+	- (void)startExport:(id)fp12;
+	- (void)finishExport;
+	- (void)cancelExport;
+	- (void)cancel:(id)fp12;
+	- (void)enableControls;
+	- (id)window;
+	- (void)disableControls;
+	- (void)tabView:(id)fp12 willSelectTabViewItem:(id)fp16;
+	- (void)tabView:(id)fp12 didSelectTabViewItem:(id)fp16;
+	- (void)selectExporter:(id)fp12;
+	- (id)exportView;
+	- (BOOL)_hasPlugins;
+	- (void)_resizeExporterToFitView:(id)fp12;
+	- (void)_updateImageCount;
+	
+	@end
+	
+	@interface ExportMgr : NSObject <ExportImageProtocol>
+	{
+	    ArchiveDocument *mDocument;
+	    NSMutableArray *mExporters;
+	    Album *mExportAlbum;
+	    NSArray *mSelection;
+	    ExportController *mExportController;
+	}
+	
+	+ (id)exportMgr;
+	+ (id)exportMgrNoAlloc;
+	- (id)init;
+	- (void)dealloc;
+	- (void)releasePlugins;
+	- (void)setExportController:(id)fp12;
+	- (id)exportController;
+	- (void)setDocument:(id)fp12;
+	- (id)document;
+	- (void)updateDocumentSelection;
+	- (unsigned int)count;
+	- (id)recAtIndex:(unsigned int)fp12;
+	- (void)scanForExporters;
+	- (unsigned int)imageCount;
+	- (BOOL)imageIsPortraitAtIndex:(unsigned int)fp12;
+	- (id)imagePathAtIndex:(unsigned int)fp12;
+	- (struct _NSSize)imageSizeAtIndex:(unsigned int)fp16;
+	- (unsigned int)imageFormatAtIndex:(unsigned int)fp12;
+	- (id)imageCaptionAtIndex:(unsigned int)fp12;
+	- (id)thumbnailPathAtIndex:(unsigned int)fp12;
+	- (id)imageDictionaryAtIndex:(unsigned int)fp12;
+	- (float)imageAspectRatioAtIndex:(unsigned int)fp12;
+	- (id)albumName;
+	- (id)albumMusicPath;
+	- (unsigned int)albumCount;
+	- (unsigned int)albumPositionOfImageAtIndex:(unsigned int)fp12;
+	- (id)imageRecAtIndex:(unsigned int)fp12;
+	- (id)currentAlbum;
+	- (void)enableControls;
+	- (void)disableControls;
+	- (id)window;
+	- (void)clickExport;
+	- (void)startExport;
+	- (void)cancelExport;
+	- (void)cancelExportBeforeBeginning;
+	- (id)directoryPath;
+	- (void)_copySelection:(id)fp12;
+	- (id)temporaryDirectory;
+	- (BOOL)doesFileExist:(id)fp12;
+	- (BOOL)doesDirectoryExist:(id)fp12;
+	- (BOOL)createDir:(id)fp12;
+	- (id)uniqueSubPath:(id)fp12 child:(id)fp16;
+	- (id)makeUniquePath:(id)fp12;
+	- (id)makeUniqueFilePath:(id)fp12 extension:(id)fp16;
+	- (id)makeUniqueFileNameWithTime:(id)fp12;
+	- (BOOL)makeFSSpec:(id)fp12 spec:(struct FSSpec *)fp16;
+	- (id)pathForFSSpec:(id)fp12;
+	- (BOOL)getFSRef:(struct FSRef *)fp12 forPath:(id)fp16 isDirectory:(BOOL)fp20;
+	- (id)pathForFSRef:(struct FSRef *)fp12;
+	- (unsigned long)countFiles:(id)fp12 descend:(BOOL)fp16;
+	- (unsigned long)countFilesFromArray:(id)fp12 descend:(BOOL)fp16;
+	- (unsigned long long)sizeAtPath:(id)fp12 count:(unsigned long *)fp16 physical:(BOOL)fp20;
+	- (BOOL)isAliasFileAtPath:(id)fp12;
+	- (id)pathContentOfAliasAtPath:(id)fp12;
+	- (id)stringByResolvingAliasesInPath:(id)fp12;
+	- (BOOL)ensurePermissions:(unsigned long)fp12 forPath:(id)fp16;
+	- (id)validFilename:(id)fp12;
+	- (id)getExtensionForImageFormat:(unsigned int)fp12;
+	- (unsigned int)getImageFormatForExtension:(id)fp12;
+	- (struct OpaqueGrafPtr *)uncompressImage:(id)fp12 size:(struct _NSSize)fp16 pixelFormat:(unsigned int)fp24 rotation:(float)fp36;
+	- (void *)createThumbnailer;
+	- (void *)retainThumbnailer:(void *)fp12;
+	- (void *)autoreleaseThumbnailer:(void *)fp12;
+	- (void)releaseThumbnailer:(void *)fp12;
+	- (void)setThumbnailer:(void *)fp12 maxBytes:(unsigned int)fp16 maxWidth:(unsigned int)fp20 maxHeight:(unsigned int)fp24;
+	- (struct _NSSize)thumbnailerMaxBounds:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 quality:(int)fp16;
+	- (int)thumbnailerQuality:(void *)fp12;
+	- (void)setThumbnailer:(void *)fp12 rotation:(float)fp36;
+	- (float)thumbnailerRotation:(void *)fp12;
+	- (void)setThumbnailer:(void *)fp12 outputFormat:(unsigned int)fp16;
+	- (unsigned int)thumbnailerOutputFormat:(void *)fp12;
+	- (void)setThumbnailer:(void *)fp12 outputExtension:(id)fp16;
+	- (id)thumbnailerOutputExtension:(void *)fp12;
+	- (BOOL)thumbnailer:(void *)fp12 createThumbnail:(id)fp16 dest:(id)fp20;
+	- (struct _NSSize)lastImageSize:(void *)fp16;
+	- (struct _NSSize)lastThumbnailSize:(void *)fp16;
+	
+	@end
+	
+	@interface ExportMgrRec : NSObject
+	{
+	    NSString *mPath;
+	    NSBundle *mBundle;
+	    id mPlugin;
+	    struct _NSSize mViewSize;
+	}
+	
+	- (void)dealloc;
+	- (BOOL)isEqual:(id)fp12;
+	- (id)description;
+	- (id)initWithPath:(id)fp12;
+	- (id)path;
+	- (id)bundle;
+	- (id)bundleInfo;
+	- (BOOL)isValidExportPlugin;
+	- (BOOL)loadPlugin;
+	- (id)exportPlugin;
+	- (void)unloadPlugin;
+	- (id)view;
+	- (struct _NSSize)viewSize;
+	- (void)setPath:(id)fp12;
+	- (void)setBundle:(id)fp12;
+	
+	@end
+

data/spec/lib/constants.rb

@@ -0,0 +1,5 @@
+#!/usr/bin/ruby
+
+module BlueCloth::TestConstants
+
+end

data/spec/lib/helpers.rb

@@ -0,0 +1,137 @@
+#!/usr/bin/ruby
+# encoding: utf-8
+
+require 'spec'
+require 'bluecloth'
+
+
+module BlueCloth::SpecHelpers
+
+	###############
+	module_function
+	###############
+
+end
+
+
+# Override the badly-formatted output of the RSpec HTML formatter
+require 'spec/runner/formatter/html_formatter'
+
+class Spec::Runner::Formatter::HtmlFormatter
+	def example_failed( example, counter, failure )
+		failure_style = failure.pending_fixed? ? 'pending_fixed' : 'failed'
+		
+		unless @header_red
+			@output.puts "    <script type=\"text/javascript\">makeRed('rspec-header');</script>"
+			@header_red = true
+		end
+		
+		unless @example_group_red
+			css_class = 'example_group_%d' % [current_example_group_number||0]
+			@output.puts "    <script type=\"text/javascript\">makeRed('#{css_class}');</script>"
+			@example_group_red = true
+		end
+		
+		move_progress()
+		
+		@output.puts "    <dd class=\"spec #{failure_style}\">",
+		             "      <span class=\"failed_spec_name\">#{h(example.description)}</span>",
+		             "      <div class=\"failure\" id=\"failure_#{counter}\">"
+		if failure.exception
+			backtrace = format_backtrace( failure.exception.backtrace )
+			message = failure.exception.message
+			
+			@output.puts "        <div class=\"message\"><code>#{h message}</code></div>",
+			             "        <div class=\"backtrace\"><pre>#{backtrace}</pre></div>"
+		end
+
+		if extra = extra_failure_content( failure )
+			@output.puts( extra )
+		end
+		
+		@output.puts "      </div>",
+		             "    </dd>"
+		@output.flush
+	end
+
+
+	alias_method :default_global_styles, :global_styles
+	
+	def global_styles
+		css = default_global_styles()
+		css << %Q{
+			/* Stuff added by #{__FILE__} */
+
+			/* Overrides */
+			#rspec-header {
+				-webkit-box-shadow: #333 0 2px 5px;
+				margin-bottom: 1em;
+			}
+
+			.example_group dt {
+				-webkit-box-shadow: #333 0 2px 3px;
+			}
+
+			/* Style for log output */
+			dd.log-message {
+				background: #eee;
+				padding: 0 2em;
+				margin: 0.2em 1em;
+				border-bottom: 1px dotted #999;
+				border-top: 1px dotted #999;
+				text-indent: -1em;
+			}
+
+			/* Parts of the message */
+			dd.log-message .log-time {
+				font-weight: bold;
+			}
+			dd.log-message .log-time:after {
+				content: ": ";
+			}
+			dd.log-message .log-level {
+				font-variant: small-caps;
+				border: 1px solid #ccc;
+				padding: 1px 2px;
+			}
+			dd.log-message .log-name {
+				font-size: 1.2em;
+				color: #1e51b2;
+			}
+			dd.log-message .log-name:before { content: "«"; }
+			dd.log-message .log-name:after { content:  "»"; }
+
+			dd.log-message .log-message-text {
+				padding-left: 4px;
+				font-family: Monaco, "Andale Mono", "Vera Sans Mono", mono;
+			}
+
+
+			/* Distinguish levels */
+			dd.log-message.debug { color: #666; }
+			dd.log-message.info {}
+
+			dd.log-message.warn,
+			dd.log-message.error {
+				background: #ff9;
+			}
+			dd.log-message.error .log-level,
+			dd.log-message.error .log-message-text {
+				color: #900;
+			}
+			dd.log-message.fatal {
+				background: #900;
+				color: white;
+				font-weight: bold;
+				border: 0;
+			}
+			dd.log-message.fatal .log-name {
+				color:  white;
+			}
+		}
+		
+		return css
+	end
+end
+
+

data/spec/lib/matchers.rb

@@ -0,0 +1,235 @@
+#!/usr/bin/env ruby
+
+require 'bluecloth'
+require 'diff/lcs'
+require 'diff/lcs/callbacks'
+require 'spec/lib/constants'
+require 'rbconfig'
+
+
+### Fixturing functions
+module BlueCloth::Matchers
+
+	### Matcher for comparing output of a BlueCloth-generated HTML fragment against a known-good
+	### string.
+	class TransformMatcher
+		
+		### Create a new matcher for the given +html+
+		def initialize( html )
+			@html = html
+		end
+
+		### Strip tab indentation from the expected HTML output.
+		def without_indentation
+			if indent = @html[/\A\t+/]
+				indent.gsub!( /\A\n/m, '' )
+				@html.gsub!( /^#{indent}/m, '' )
+			end
+			
+			return self
+		end
+		
+
+		### Returns true if the HTML generated by the given +bluecloth+ object matches the 
+		### expected HTML, comparing only the salient document structures.
+		def matches?( bluecloth )
+			@bluecloth = bluecloth
+			@output_html = bluecloth.to_html.gsub( /\n\n\n/, "\n\n" )
+			return @output_html.strip == @html.strip
+		end
+		
+		### Build a failure message for the matching case.
+		def failure_message
+			if self.should_output_html?
+				patch = self.make_html_patch( @html, @output_html )
+				return %{
+					<p>Expected the generated html:<br />
+					   <pre><code>#@output_html</code></pre>
+					to be the same as:<br />
+					   <pre><code>#@html</code></pre>
+					</p>
+					<p>Diffs:</p>
+					#{patch}
+				}
+			else
+				patch = self.make_patch( @html, @output_html )
+				return ("Expected the generated html:\n\n  %p\n\nto be the same as:\n\n" +
+					"  %p\n\nDiffs:\n\n%s") % [ @output_html, @html, patch ]
+			end
+		end
+		
+		### Build a failure message for the non-matching case.
+		def negative_failure_message
+			return "Expected the generated html:\n\n  %p\n\nnot to be the same as:\n\n  %p\n\n" %
+				[ @output_html, @html ]
+		end
+		
+		
+		### Returns true if it appears HTML output should be used instead of plain-text. This
+		### will be true if running from TextMate or if the HTML_LOGGING environment variable
+		### is set.
+		def should_output_html?
+			return false
+			# return ENV['HTML_LOGGING'] ||
+			# 	(ENV['TM_FILENAME'] && ENV['TM_FILENAME'] =~ /_spec\.rb/)
+		end
+		
+		
+		### Compute a patch between the given +expected+ output and the +actual+ output
+		### and return it as a string.
+		def make_patch( expected, actual )
+			diffs = Diff::LCS.sdiff( expected.split("\n"), actual.split("\n"),
+				Diff::LCS::ContextDiffCallbacks )
+
+			maxcol = diffs.flatten.
+				collect {|d| [d.old_element.to_s.length, d.new_element.to_s.length ] }.
+				flatten.max || 0
+			maxcol += 4
+
+			patch = "              %#{maxcol}s | %s\n" % [ "Expected", "Actual" ]
+			patch << diffs.collect do |changeset|
+				changeset.collect do |change|
+					"%s [%03d, %03d]: %#{maxcol}s | %-#{maxcol}s" % [
+						change.action,
+						change.old_position,
+						change.new_position,
+						change.old_element.inspect,
+						change.new_element.inspect,
+					]
+				end.join("\n")
+			end.join("\n---\n")
+		end
+		
+		### Compute a patch similar to #make_patch, but output HTML instead of plain text.
+		def make_html_patch( expected, actual )
+			diffs = Diff::LCS.sdiff( expected.split("\n"), actual.split("\n"),
+				Diff::LCS::ContextDiffCallbacks )
+
+			patch = %{
+				<table>
+					<caption>Diffs</caption>
+					<thead>
+						<tr><th>Op</th><th>Pos</th><th>Expected</th><th>Actual</th></tr>
+					</thead>
+					<tbody>
+				}
+			patch << diffs.collect do |changeset|
+				changeset.collect do |change|
+					"<tr><td>%s</td><td>[%03d, %03d]</td><td>%s</td><td>%s</td></tr>" % [
+						change.action,
+						change.old_position,
+						change.new_position,
+						change.old_element.inspect,
+						change.new_element.inspect,
+					]
+				end.join("\n")
+			end.join( "</tbody><tbody>" )
+			patch << %{</tbody></table>\n}
+		end
+		
+	end
+	
+	### Variant of the regular TransformMatcher that normalizes the two strings using the 'tidy'
+	### library before comparing.
+	class TidyTransformMatcher < TransformMatcher
+
+		TIDY_OPTIONS = {}
+		@tidy = nil
+
+		### Fetch the class-global Tidy object, creating it if necessary
+		def self::tidy_object
+			unless @tidy
+				require 'tidy'
+				soext = Config::CONFIG['LIBRUBY_ALIASES'].sub( /.*\./, '' )
+				Tidy.path = "libtidy.#{soext}"
+				@tidy = Tidy.new( TIDY_OPTIONS )
+			end
+			
+			return @tidy
+		end
+		
+
+		### Set the matcher's expected output to a tidied version of the input +html+.
+		def initialize( html )
+			@html = self.class.tidy_object.clean( html )
+		end
+		
+		
+		### Returns true if the HTML generated by the given +bluecloth+ object matches the 
+		### expected HTML after normalizing them both with 'tidy'.
+		def matches?( bluecloth )
+			@bluecloth = bluecloth
+			@output_html = self.class.tidy_object.clean( bluecloth.to_html )
+			return @output_html == @html
+		end
+		
+	end
+
+
+	class TransformRegexpMatcher
+		
+		### Create a new matcher for the given +regexp+
+		def initialize( regexp )
+			@regexp = regexp
+		end
+		
+		### Returns true if the regexp associated with this matcher matches the output generated
+		### by the specified +bluecloth+ object.
+		def matches?( bluecloth )
+			@bluecloth = bluecloth
+			@output_html = bluecloth.to_html
+			return @output_html =~ @regexp
+		end
+		
+		### Build a failure message for the matching case.
+		def failure_message
+			return "Expected the generated html:\n\n   %pto match the regexp:\n\n%p\n\n" %
+				[ @output_html, @regexp ]
+		end
+		
+		
+		### Build a failure message for the negative matching case.
+		def negative_failure_message
+			return "Expected the generated html:\n\n   %pnot to match the regexp:\n\n%p\n\n" %
+				[ @output_html, @regexp ]
+		end
+	end
+	
+
+	### Create a new BlueCloth object out of the given +string+ and +options+ and
+	### return it.
+	def the_markdown( string, *options )
+		return BlueCloth.new( string, *options )
+	end
+
+	
+	### Strip indentation from the given +string+, create a new BlueCloth object 
+	### out of the result and any +options+, and return it.
+	def the_indented_markdown( string, *options )
+		if indent = string[/\A\t+/]
+			indent.gsub!( /\A\n/m, '' )
+			$stderr.puts "Source indent is: %p" % [ indent ] if $DEBUG
+			string.gsub!( /^#{indent}/m, '' )
+		end
+		
+		return BlueCloth.new( string, *options )
+	end
+
+	
+	### Generate a matcher that expects to equal the given +html+.
+	def be_transformed_into( html )
+		return BlueCloth::Matchers::TransformMatcher.new( html )
+	end
+	
+	### Generate a matcher that expects to match a normalized version of the specified +html+.
+	def be_transformed_into_normalized_html( html )
+		return BlueCloth::Matchers::TidyTransformMatcher.new( html )
+	end
+	
+	### Generate a matcher that expects to match the given +regexp+.
+	def be_transformed_into_html_matching( regexp )
+		return BlueCloth::Matchers::TransformMatcher.new( regexp )
+	end
+	
+end # module BlueCloth::Matchers
+