sbt/cache/src/test/scala/CacheTest.scala

package sbt

import java.io.File
import Types.:+:

object CacheTest// extends Properties("Cache test")
{
	val lengthCache = new File("/tmp/length-cache")
	val cCache = new File("/tmp/c-cache")

	import Cache._
	import FileInfo.hash._
	import Ordering._
	import sbinary.DefaultProtocol.FileFormat
	def test
	{
		lazy val create = new File("test")

		val length = cached(lengthCache) { 
			(f: File) => { println("File length: " + f.length); f.length }
		}

		lazy val fileLength = length(create)

		val c = cached(cCache) { (in: (File :+: Long :+: HNil)) =>
			val file :+: len :+: HNil = in
			println("File: " + file + " (" + file.exists + "), length: " + len)
			(len+1) :+: file :+: HNil
		}
		c(create :+: fileLength :+: HNil)
	}
}