File: DER.hs

package info (click to toggle)
haskell-hsopenssl 0.11.7.9-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 544 kB
  • sloc: haskell: 1,469; ansic: 451; makefile: 14
file content (11 lines) | stat: -rw-r--r-- 264 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
module Main (main) where

import OpenSSL.RSA
import OpenSSL.DER
import TestUtils

main :: IO ()
main = do
    keyPair <- generateRSAKey 1024 3 Nothing
    pubKey <- rsaCopyPublic keyPair
    assertEqual "encodeDecode" (Just pubKey) (fromDERPub (toDERPub keyPair))